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INTRODUCfiü 


Amigo leitor, 

AO adquirir, em meados de 1982, o meu primeiro microcomputador, 
um novo mundo de desafios intelectuais abriu-se para mim. Folheei »!Ma- 
nual uma primeira vez. Comecei a "brincar" com o computador. Li o Ma" 
nual em profundidade... 

Aos pouços, muito lentamente, comecei a entrar no espírito da lin¬ 
guagem BASIC e a entender o enorme potencial de utilização prática que 
estava escondido dentro daquela pequena carcaça de plástico. 

Comprei livros e revistas com programas (naquela época todos ain¬ 
da importados), e aos poucos, comecei a tentar modificar algumas linhas 
de um programa publicado, só para ver o que acontecia. 

Quando me dei conta, percebi que tinha aprendido os rudimentos 
de programação: 

Arrisquei mandar uma colaboração para a revista "Microhobby" 
ela foi aceita e publicada. Foi o sinal, para mim, que as horas passadas jun 
to ao teclado do meu computador valeram para alguma coisa. 

Adquiri, então, um TK-85 que embora de mesma lógica do compu¬ 
tador que eu possuía, representava uma evolução evidente. Melhor tecla¬ 
do e, principalmente, a possibilidade de usar funções exclusivas que ele 
apresentava. Por exemplo, refiz toda a minha fitoteca em "High Speed". 

0 livro não pretende ensinar os rudimentos da linguagem BASIC aos 
leitores. Outros livros já foram escritos com esta finalidade. Além disso, o 
Manual que acompanha o aparelho é bastante minucioso e útil. 

A finalidade do livro é a de compartilhar, com os amigos leitores, as 
experiências e descobertas que o computador me proporcionou. 

Vocês vão notar que os programas apresentados se propõem a ex¬ 
plorar as principais potencialidades do seu computador pessoal e a utiliza¬ 
ção prática dessas potencialidades para estudos, desenhos, gráficos, ar¬ 
quivos de dados, e como não poderia deixar de ser, para jogos inteligentes. 

Sugiro aos leitores que leiam o livro e analisem os programas, pro¬ 
curando entender cada linha de instrução e o que ela realiza. 

Tentem fazer modificações nos programas e verifiquem os resul¬ 
tados. 

Aventurem-se nos meandros da linguagem BASIC. 

0 livro foi escrito para ajudá-los nesta aventura. 

Bom Proveito. . . 
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ANIMAÇÃO NO COMPUTADOR 


Uma das características mais interessantes do seu computador pes¬ 
soal é a sua capacidade de executar programas animados. 

Por esta razão, e para que o amigo leitor se prenda logo à leitura e 
utilização deste despretencioso livro, é que o autor resolveu dedicar este 
capítulo às ROTINAS DE ANIMAÇÃO. 

Estas rotinas são utilizadas primeiramente para jogos, mas têm tam¬ 
bém outros usos conforme será visto mais adiante. 

Uso da função INKEY$ 

A principal instrução para criar animação no. seu computador é a 
função INKEY$. Ela permite ao computador executar determinada "tarefa" 
ao simples digitar de alguma tecla. 

Vamos entender j'untos o seu funcionamento: 

O computador, ao executar uma instrução que contenha a função 
INKEY$, examina o teclado. Se neste instante uma tecla estiver sendo 
acionada, o caractere desta tecla é colocado em INKEY$, isto é: se você 
acionar a tecla "T", por exemplo, neste instante INKEY$ será igual a "T". 

Entre com as duas linhas de programa abaixo para verificar, na 
prática, o funcionamento de INKEY$. 

IS PRINT INKEYí; 

20 GOTO 10 

Agora dê RUN no programa. Nada acontecerá enquanto você não 
acionar alguma tecia. 

Digite, por exemplo, a letra "T". Enquanto você estiver com o dedo 
na tecla o programa girará entre as suas duas linhas de instruções e uma 
série de "T"s aparecerá na tela. Tente outra tecla e veja o resultado. "E 
daí?" é a pergunta que certamente ocorrerá ao leitor neste momento. Entre 
com o programa abaixo e você verá uma utilização prática do uso de 
INKEY$. 
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20 

.Tt 

VL* 

40 . 

i_irT V = 10 

LET X = 15 

LET 2* = 

IP INKEYí = if 5" 

THEN 

LET X-X- 

50 

IF INKEYí = M 6’* 

THEN 

LET Y =Y + 

50 

IP INKEYÍ = *‘7 M 

THEN 

LET Y=Y- 

70 

IF INKEYí = “8“ 

THEN 

LET X=X+ 

£00* 

£10 

PRINT PT Y,X; 
GOT0 40 

Lm 
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O programa permite movimentar um ponto através da tela usando as 
teclas 5, 6, 7 e 8 que são as teclas indicadoras de direção (você pode tam¬ 
bém usar o "Joystick" para isso). 

Entenda seu funcionamento: 

O programa fica girando entre as instruções 40 e 210 aguardando 
que você acione alguma tecla. Se você não acionar alguma tecla, ou a te¬ 
cla acionada for diferente de 5,6,7 ou 8, nada acontecerá. 

"Se você acionar a tecla 5, por exemplo, então INKEY$ será = "5" e 
o valor de X será diminuído de uma unidade, portanto, o ponto se deslo¬ 
cará para a esquerda. 

O programa poderá ser melhorado a fim de evitar a sua interrupção 
quando o ponto tentar ultrapassar os limites da tela da sua televisão. En¬ 
tre com as linhas abaixo, e divirta-se com as éstrepolias do seu "PONTO 
ANDANTE". 


80 IF 
90 IF 
100 IF 
110 IF 



iHEN LET X 
1 THEN LET 


Y < 0 THEN LET Y 


1 THEN LET 


31 
= Õ 
21 
= 0 / 


Muito bem, nesta altura do Campeonato o leitor amigo, já estará 
pronto para entendera estrutura do programa "O DESENHISTA" que usa 
exatamente a rotina que acabamos de aprender para fazer desenhos na 
tela. 


O Desenhista 


"O DESENHISTA" permite ao leitor "desenhar telas", que depois 
serão memorizadas pelo computador em uma variável "String". O progra¬ 
ma é excelente para criar aberturas para outros programas. Vamos a ele: 

Parte A 


1) Entre com o programa listado abaixo: 


1 Rn M Ü D E S E N HI ST H 

*0) -B« Ç•STEIN 

H Lr* U i y m 

q p* 

3 FOR N=0 TO 2 1 

4 RRINT ” 


5 NEXT N 
5 O OTO 15 
10 uL 

15 LET X = 1 
20 LET Y = 42 
30 LET 0=1 

40 IF INKEY$ = ”F U ThEH GOTO 200 
50 IF 0 = 1 AND INKEY$=”8” THEN 
LET 0=0 

55 FOR N =0 TO 1 
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56 NEXT N 

60 IF 0=0 AND INKEY$ = ,i 0 , ‘ THEN 
LET 0=1 

70 IF INKEY $ = ” 5” THEN LET X=X- 

•1 

80 IF INKEY$ = ” S” THEN LET Y=Y- 

1 

90 IF INKEY$ = ” 7” THEN LET Y=Yt 


IF INKEY$="8" THEN LET X=X* 


101 Ir X<0 IHnN LtT X=63 

102 IF X >63 THEN LET X=0 
184 IF Y < 0 THEN LÉT Y=42 
105 IF Y > 43 THEN LET Y =8 
110 UNPLOT X,Y 

120 PLOT X j Y 

138 IF 0 THEN UNPLOT X,Y 

140 GOTO 40 

200 FRST 

210 DIM X$(704) 

220 FOR 1=0 TO 21 
238 FOR J=i TO 32 
240 LET X$ÍÜ+32*I)=CHR$ PEEK C( 
PEEK 16396+256*PEEK 16397)+J+33* 
I) 

250 NEXT J 
260 NEXT I 
278 SLOU 
288 CL5 

298 PRINT AT .5,0;"PRONTO, EU ME 
MORIZEI A SUA OBRA";AT 8,8; n ENTR 
E ” “ PRINT X$ ” ” PARA CONFIRMAR* 1 
388 ST DP ' 

408 SAUE s 0 DESENHISTA” 

418_PRIN T AT 5,9;”0 DÊSENHISTA” 

ARA FUNDO BRANCO, ENTRE 
T 11,2;“PARA FUNDO PRETO, ENTRE 

:l 11 p, 1 1 il 11 

428 IF lHKEY$ = "~P' t THEN GOTO 1 
438 IF INKEY$=”B” THEN GOTO 18 
4-4-0 b'UTU 4-0 


2) Passe o programa para o gravador 

a) Entre “GOTO 400". 

b) Coloque o gravador em "Rec". 

Parte B 

Suponhamos que você queira criar uma tela de abertura para os seus 
programas, como segue: 
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Proceda da seguinte forma: 

1) Se você possuir o "Joystick" acople-o ao computador. 

2) Passe o programa previamente armazenado em fita para o seu compu¬ 
tador entrando LOAD "O DESENHISTA" , ou LOAD " 

3) Ao iniciar-se o programa perguntar-lhe-á se você deseja a tela com fun¬ 
do branco (B) ou preto (P). Escolha. 

4) Agora você verá na tela dá sua TV o fundo escolhido,e,no canto supe¬ 
rior esquerdo um ponto piscando. 

5) Experimente movimentar a alavanca do "Joystick" nas quatro direções 
(se você não possuir um, recomendo que compre). Por hora tente movi¬ 
mentar o ponto com as teclas 5,6,7 e 8. 

6) O Ponto se moverá,deixando ou não, um rastro atrás de si. 

7) Aperte o botão vermelho do "Joystick" (ou a tecla 0 do computador). 

8) Tente algumas vezes. Com um pouco de prática, você perceberá como 
traçar riscos, apagar riscos ou apenas movimentar o ponto através da tela. 

9) Agora, com o seu extremo senso de criação e bom gosto, desenhe uma 
bela apresentação para os seus programas. 

10) Quando a sua obra estiver concluída entre F (fim). 

11) 0 computador irá para o modo "FAST" e a imagem desaparecerá por 
aproximadamente 30 segundos. 

12) Tente agora entrar "PRINT X$". Viu? 

Beleza pura, não é? 

Parte C 

E agora? 

Bem, acredito que você criou a tela como abertura para os seus pro¬ 
gramas. Então proceda assim: 
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1) Nunca (nunca mesmo) entre com RUN, CLEAR ou NEW. 

2) Apague todas as linhas do programa, uma a uma, entrando o número de 
linha e"NEWLINE". 

3) Depois de fazer isso com todas as linhas, a tela ficará branca e você 
ficará desapontado. 

4) Mas, se você não entrou com RUN, CLEAR, óu NEW, não desespere, 
tente entrar "PRINT X$". Viu, beleza pura novamente! 

5) Agora entre com as linhas do programa conforme indicado a seguir. 


10 

£*8 

30 

4-0 

50 

£ 


PRINT X 
FOR N=0 
NEXT N 


L- L. b 



4 * 

i ENTRE COM O SEU PROGRAMA 


XX00 STÜP 
XXI0 SAUt: 
XXH0 GüT.U 


"NOME DO PROGRAMA" 
10 


a) Até a linha 40 conforme apresentado.- 

b) Da linha 50 em diante entre com o seu programa. 

ç) Após o término do seu programa, a linha seguinte, que está indicada 
genericamente como XX00. deve conter o.comando "STOP". 
d) Na linha seguinte,entre com SAVE e título do seu programa., 
é) Na outra linha "GOT010". 

f) Para armazenar todo o conjunto de apresentações, mais o seu progra¬ 
ma, entre "GOTO XX10", isto é, para o número que esta linha tiver no seu 
programa. Fácil; não é? 

Cada vez que você carregar o seu programa no computador, ele 
iniciar-se-á com a sua abertura. Impressione seus amigos. Você pode alte¬ 
rar o tempo de permanência da apresentação na tela, alterando o valor 100 
na linha 20. 


Animação 


Entre com o programa abaixo e veja como podem ser executadas 
rotinas de animação em jogos. 

10 FOR X=0 TO 61 
20 PLOT X,0 
3 0 F' L U í X +1,0 
40 PLOT X+2,0 
50 PLOT X+1,1 
4.60 FOR T =0 TO 5 
70 NEXT T 
80 UNPLOT X,0 
90 UNPLOT X+1,1 
100 NEXT X 
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Se você alterar o valor de "T" na linha 60, a velocidade de seu car¬ 
rinho mudará. 


Títulos Animados 


Além de animar objetos que se movimentam na tela, o seu compu¬ 
tador pode formar letras, desenhos e palavras diante dos seus olhos. Um 
uso prático desta propriedade o leitor poderá ver no programa "0 APRE¬ 
SENTADOR", no II capítulo do livro. "O APRESENTADOR" gera uma 
abertura para o programa de vídeo. Na sua primeira parte a palavra "apre¬ 
senta" se forma diante dos seus olhos. 

Vamos mostrar como este outro tipo de animação pode ser execu¬ 
tado. 

Suponhamos que o leitor queira "desenhar" uma linha horizontal no 
meio da tela que se forma da esquerda para direita. Faça assim: 

10 FOR X=28 TO 35 
20 LET Y=25 
30 GOSUB 9990 
9970 5T0P 
9990 PLOT X,Y 
99§1 NEXT X 
9992 RETURN 

Agora desenhe a mesma linha da direita para esquerda: 

10 FOR X =35 TO 28 STEP -1 
20 LET Y =25 
3 0 G ü 5 U B 9990 
QQ70 STÜP 

9990 PLOT X,Y 

9991 NEXT X 

9992 RETURN 

Agora vamos desenhar uma linha vertical de cima para baixo: 


IO LET X =28 

20 FOR Y =25 TO 18 STEP -1 

30 ftnsi QQ0 

9970 STDP 

9980 PLOT X,Y 

9981 NEXT Y 
QQ82 RETURN 


ou de baixo para cima.* 


10 LET X=28 
20 FOR Y =18 TO 25 
30 GOSUB 9980 
9970 ST0P 

9980 PLOT X,Y 

9981 NEXT Y 

9982 RETURN 
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Agora vamos criar um quadrado que se forma no "sentido horário": 

10 LET Y =25 
20 FOR X =28 TO 35 
0 Q 0 S U B 9990 
40 LET X=35 

50 FOR Y =25 TO 18 STEP -1 
R0 RHSUB 9980 
70 FOR X =35 TO 28 STEP -1 
80 LET Y-18 
90 GOSUB 9990 
100 LET X =28 
110 FOR Y = 18 TO 25 
120 GOSUB 9980 
9970 STOP 

9980 PLOT X,Y 

9981 NEXT Y 

9982 RETURN 

9990 PLuT X, Y 

9991 NEXT X 

9992 RETURN 

Vamos desenhar o mesmo quadrado no sentido anti-horário: 

10 LET X =28 

20 FOR Y =25 TO 18 STEP -1 
0 (jU U E 9 9o0 
40. FOR X=28 TO 35 
50 LET Y = 18 
80 GOSUB 9990 
70 LET X=35 
80 FOR Y = 18 TO 25 
90 GOSUB 9980 
100 FOR X=35 TO 28 STEP -1 
110 LET Y =25 
120 GOSUB 9990 
9970 STOP 
9980 PLOT X,Y 

9931 NEXT Y 

9932 RETURN 

9990 PLOT X i Y 

9991 NEXT X 

9992 RETURN 

Pronto. Para programar qualquer letreiro animado, basta seguir o 
mesmo roteiro que acabei de mostrar. 

Para fixar os valores numéricos que definem a posição e o limite das 
linhas, sugiro que o leitor proceda assim: 

Tire algumas cópias da folha quadriculada do Manual do seu compu¬ 
tador no capítulo que trata de Gráficos (no caso do Manual do TK-85 tire 
cópias da pág. 18-3). 

Nestas cópias o leitor desenhará o título na sua versão final. 

Depois utilize as coordenadas numéricas do gráfico para fixar os 
limites das linhas. Parece complicado, mas não é. Sugiro que o leitor faça 
algumas tentativas iniciais e logo se tornará um mestre. 



Números Aleatórios 


Para que o leitor entenda totalmente a estrutura dos programas de 
jogos, falta discutirmos juntos a função RND. 

A função RND gera números aleatórios (êles não são exatamente 
aleatórios, mas para as nossas necessidades práticas podemos conside¬ 
rá-los assim). 

Entre com as linhas abaixo: 

10 LET H-RND 
£0 PRINT A, 

30 GOTO 10 

Este programa gera números entre 0 e 1, (inclusive o 0 e exclusive 
o 1). Se você alterar a linha 10para: 

IO LET A=S*RND 

você obterá números fracionários entre 0 e 5,99999999 
Se agora você mudar a linha 10 para: 

10 LET A = INT (6*RND) 

você obterá números aleatórios inteiros entre 0 e 5 (inclusive). 

Faça mais uma alteração, 

10 LETA = INT C6*RND)+1 

e você obterá números entre 1 e 6. Pronto, acabamos de aprender como se 
simula as jogadas de um dado nos programas de jogos. Você poderá ver a 
utilização desta instrução no programa "LUDO" no capítulo VII do livro. 

Você pode verificar, também, que quase todos os programas de 
jogos usam a função RND para criar "situações" inesperadas no seu trans¬ 
correr. O programa "O POETA", por exemplo, usa RND para gerar poesias 
aleatórias; verifique. 

Abaixo, segue um programinha como exemplo para ilustrar o funcio¬ 
namento da RND: 

10 LET A = INT (RND*223 
20 LET B = INT (RND*32.3 
30 PRINT PT H,E;"X" 

40.GOTO 10 

A tela se encherá de "X" em posições aleatórias. 

(puxa vida, que jogo emocionante!) 

Os outros programas que completam este capítulo usam jüstamente 
as funções e rotinas qué acabamos de discutir. 

1) ATAQUE AÉREO 
Entre com o programa. 

Siga as instruções que êle apresentará e divirta-se. 
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1 REM ATAQUE'AEREO 

JUL 1984 

2 L.ET H = I8Q 

3 LET 5=0 

4 LET Y =INT (RND*22) 

•5 LET X = INT (RND*30) +1 

6 CLS 

7 LET X=X + INT (RND*3) -1 
3 LET Y =Y + INT (RND*3) -1 
9 PRINT AT 9,14; “V 

10 PRINT AT 9,16; “a*" 

11 PRINT AT 11,14; 

12 PRINT AT 11,18; “V* 

15 PRINT H 


16 

IF 

H <1 THEN GOTO 3 

cr 

w 1 


17 

IP 

X >23 THEN LET X 

= 0 


13 

IP 

Y>21 THEN LET Y 

= 0 


19 

PRINT RT Y,X-1; 

V" 


21 

IF 

INKEY$="6" THEN 

LET 

< 

II 

1 

O o 

rn*m tmrn 

IP 

INKEY$="5” THEN 

LET 

x=x+ 


IP 

INKEY$ = "7'* THEN 

LET 

Y=Y + 

24 

•"t 

IP 

INKEY$="8" THEN 

LET 

X =X- 

£U 

IP 

INT (RND*53 *1 = 1 

THEh 

4 LET 

H 

■INT 

(RND*153+1 



26 

IP 

INKEY$="0" THEN 

gotc 

3 23 


££7 ?3 íJ í !J t? 

28 IP X = 15 RND Y —10 THEN GOTO 


Sil ! 'j" JJí " 

30 PRINT RT 10,14;-" 


31 

LET S=S + 1 

fS *T‘ 

’ 4m9 

Fnp t=0 T! 

v5 w* 

NEXT T 

•J'4> 

Ijn OT U 4 

35 

PRINT "UQi 

IR OS 


36 

STOP 

O* }* 

SRUE "■ RTR 

.;,q 

PRINT RT ; 

3S 

PRINT RT \ 

40 

PR INT 

41 

PRINT 

42 

PRINT TRB 


£ BtzRtzÜ :: 


42 PRIHT ! RB 7;“MOUfi SizU PUIRO 

■< 

^ 43 PRINT_TRB 4 j l, COH R5 TECLRS 

w Jt W / f u. r 

44 PRIHT 

45 PRINT TRB 6; "RTXP.E COM R TE 
CLR’0. *■ 

45 PRINT 

47 PRINT TRB 4;“ÍOU USE SEU <wv 
■JOYSTICK'* " 



FOR T =0 ‘O 120 
NEXT T 
GOTO 1 

2) PONG 




Eis um dos programas clássicos dos video-jogos adaptado para o seu 
computador. 

Para melhor aproveitamento sugiro que o leitor use o seu "Joys¬ 
tick". 


1 REM 00000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 


0000000000000 

2 REM JOGOS CLRS 5IO05 

TRADUZIDO 
POR B.C.5TEIN 
JUN 1984 

3 FRST 

4 GOSUB 20© 

5 SLGU 

6 LET RG=16559 

7 LET RU =16691 
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0*Í0 


8 LET E=0 

9 POKE 16389,12? 

10 PRINT RT 0,14; ‘‘lãESaS’ 1 

12 FOR 1=6 TO 18 STEP 2 

14 FOR J=4 TO 16 STEP 2 

15 PRINT RT I,J; M |’‘ 

18 NEXT J 

2© NEXT I 

4Q LET J=USR 16705 

45 POKE 16668,32 

46 POKE 16669,35 

47 POKE 16696,33 

48 POKE 16697,27 

5© GOTO 100-Í14<>ÜSR RGi*(45-2 
0*í©< >U5R RU)). 

55 POKE 16666,34 

56 POKE 16669,43 

5? POKE 15696,1 

58 POKE 16597,19 

6© GOTO 100-(14 OUSR RG) * (35+2 
0*(0<>U5R RU)) 

65 POKE 16668,32 

66 POKE 16669,43 

67 POKE 16696,33 

68 POKE 16697,19 

70 GOTO 100*** í 14 í >USR RG) * 1254*2 
0*(© <>USR RU) ) 

75 POKE 16668,34 

76 POKE 16669,35 

77 POKE 16696,1 

78 POKE 16697.27 

8© GOTO 100-CÍ4< >USR RG) *(55-2 
0*{0<>USR RU)). 

100 LET E.=E + 1 

118 PRINT RT 0,3;E 

120 IF E=? THEN GOTO 15© 

125 LET U = 115 4*2 * INT Í5*RND) 

13© POKE 16719,W 
140 GOTO 4© 

150 PRINT RT 0,0;" RCRB 

OU 0 JOGO 1 ' 

160 STüP 

208 LET M$=“2R817F3R2640FEDF200 
586212310FOFEEF200506212810FD545 
OE52R0C40011F00097RBC20087BBD200 
7E106212310FDE52R0G4001E302097RB 
C200B7BBD2007E106212B13F0E5E1220 
17F3600GS04C505212310FD3580Q110F 
53608CDE240C9" 

205 LET M$ = M$4“ 1, 2R0C40012200©906 
I5C506212310FDC135051GF505203683 
2310FB2B06160506212B10FDG1363E1© 
F5062036032B18FBG9 ** 

218 LET M$ = M$4*“CD82402R037F3630 
062Q2310FD22037F7E363406004FFE00 
2801C9CD824018E0” 


© * í © 


215 LET li $=M $ + ” ED5B©3?P06211B1© 
PDlfl06004PC9“ 

220 LET M $ = M $ +.**22004-©©15*2000922 
017P2R0C400173000922037PC9 ,, 

225 LET 2=16514 
230 POR 1=1 TO 212 
235 LET E = 16£CCÓDE M$(l)-28)+C0 
DE M$(2) -26 
24.0 POKE 2,E 
24-5 LET M $=M $ C3 TO ) 

250 LET 2=2+1 
255 NEXT I 
260 RETURN 
300 SRUE "PGNG" 

310 RUN 


CAPITULO II 





































































































































































































VAMOS ESTUDAR UM POUCO? 


Os dois programas mostrados neste capítulo irão ajudar o leitor nos 
seus estudos. 

(Afinal nem tudo é divertimento e lazer na vida). 

Jogo da Memória 


O Jogo da Memória vai auxiliar o leitor a desenvolver sua memória 
de uma maneira agradável e divertida. 

O programa foi elaborado para poder utilizar a característica dó 
Computador TK-85 e armazenar diversos grupos de dados diferentes em 
fita, e utilizá-los alternadamente para deixar o jogo mais emocionante, 
mais variado. 

Se, pórém, o leitor tiver algum outro computador compatível, que 
não permite a armazenagem de dados, não se preocupe, o programa já 
tem incorporado uma série de dados ( no caso , nome de aves), que 
permite a sua perfeita utilização. 

Vamos a ele: 

Entre com o programa conforme listado abaixo: 


i REM 


j0G0S CLASSIü0S 


ÜGGQ 


MEMÓRIA 


ÍC5-B.C.STEIN 
JUN 1984. 

2 CLS 

3 PRINT "BEM UTNDO RO “; AT 2.. 
m iueis íc m » 1 _ t i *'[>XGITE Qü 


ÍJOÍ2& D^HEHÜRIj 


ALGUER TECLA t EU LHt 

MOSTRO " . .E$;" ." • . "DURANTE ALGUNS 
SEGUNDOS." 

4 PRINT ,,"UOCE DEUE TENTAR R 
EPETIR TODOS OS TERMOS QUE UOCt 
LEMBRAR." 

R PRINT AT 12.0:"0 JOGO COMEC 
A nnr -1 2 TERMOS E TERMINA 00 

M 5 TERMOS , " " 

6 PRINT AT 1S,0.: l, i^S^E3Ü." 

7 PAUSE 4t4 

8 FR ST 

18 LET D =LEN D$ 

15 LET B=-l 
20 FOR.1=1 TO D 

25 IF D$ íI)="/" THEN LET B=B + 1 
30 NEXT I 

35 LET Z =2 

36 FAST 
38 CLS 

48 DIM A$ ÍZ 10 3 
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50 DIM ZCZ3 

60 FOR 1=1 TH z 

70 LET ZíDsINT £RND#B3+1 

72 IF 1=1 THEN GOTO 60 

74 FOR N=2 TO I ‘ 

75 IF Z 113 =ZÍN-1) THEN GOTO 70 

76 NEXT H 
60 NEXT I 

90 FOR 1=1 TH z 
100 LET 5=0 
110 LET B$ = íst ’ 

120 FOR J=1 TO Z(I) 

14.0 LtT o = +1 

ÍI! I? I*i> S thIn'let M I2i G0T0 110 

160 NEXT .ü 

165 LET S=S+1 

170 LET B$=B$+D$ÍS) 

180 LET 6=5+1 

190 IP D$ ÍS> =“,•• THEN GOTO 210 
195 IF S>D THEN LET 6=1 
200 GOTO 170 
210 LET fi$m=B$ 

220 NEXT I 
230 SLOU 

24.0 FOR 1 = 1 TO Z 
250 LET X = INT <RND*21) 

260 LET Y=INT ÍRND+23) 

270 PRINT RT X,Y; fl $ (I) 

272 FOR T =0 TO Z*4 

274- NEXT T 

276 PRINT RT X,Y;" 

280 NEXT I 

290 r0R 1 = 1 TO Z*5 

300 NEXT I 

510 UL5 

320 PRINT " ENfRE COM 05 TERMO 
5 QUE UOCE MEMORIZOU, DEPOIS 
ENTRE N/L.” 

34-0 DIM fl (Z:i 
34-5 DIM C$(10J 
347 LET 6=1 
350 FOR 1=1 TO Z 
355 LET F =0 
360 INPUT 0$ 

375 IF C$=" “ THEN GOT 

0 4.30 

380 PRINT RT 2+1,2/C$; 

390 FOR J=1 TO Z 

400 IF fl$cu:i=c$ THEN PRINT /"CE 
RTO. " 

410 lí - fi$ lüJ =C$ THEN LET F = 1 
420 NEXT ü 

430 IF NOT F THEN PRINT RT 2+1, 
16;"ERRADO" 
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465 IF NOT F THEN LET G =8 
44Õ NEXT I 

445 IF G THEN GOTO 580 
450 PRINT 

460 PRINT TRB 2 .; "R 5 PRLRURHS Ce 
RTRS FORRM:" 

462 PRINT. 

465 LET F =0, 

470 FOR 1=1 TO Z 

475 LET F=F + i : . _ 

477 XF F = 1 OR F =3 OR F=5 THtN P 

RINT " 

480 PRINT fl$ CD , 

490 NEXT I 

500 PRINT SE DRNuU . . . ’ 

575 GOTO 680 
580 FOR 1 = 1 Tu í'0 
590 NEXT I 
595 CLS 
600 LET Z=Z+1 
FIO IF Z >6 THEN GOTO 640 
520 FR 6 T 


530 GOTO'40 _ 

640 PP INT " UOCE MEMORIZuU 5 TE 
DMQS, MUITO BEM..." 

645 IF K=1 THEN GOTO 700 
650 PRINT 
565 PRINT 
570 PRINT 

660 PRINT " UOCE QUER JOGfiR NOU 
firiÊNTE? (S/N)." 

685 INPUT U$ 

590. IF CODE U$=56 THEN GOTO 5 
695 PRINT RT 11,10;“TCHRU MESMO 


697 STOP 

700 PR INT RT 5,1.; “ UOCE' QUER " 

702 PRINl AT 8,1;“1. UOGRR CuM 
ni ITROS DRDOS . " 

704 PRINT RT 18,1;"2. REPETIR 0 
,IOGO COM " ; E$; " . “ 

786 PRINT RT 12,1;"3. PRRRR DE 
» i r*i H P * * * 

713 IF INKEY$="1" THEN GOTO 123 

0 ■ ■ 

716 IF INKcY$="2“ THEN GuTu i 
720 IF INKEY$ = "3" THEN. GOTO 692 
725 GOTO 718 

750 LET K=0 _ 

760 SRUE "JOGO DR MEMORlS" 

770 IF K=1 THEN GOTO 1248 
788 IF K=2 THEN GOTO 3000 
800 PRINT RT 3,14;“MENU" 


THEN. GOTO 692 



805 PRINT PT 4-, U; 

810 PRINT PT 6.4;"UOCE ESTP U5P 
HDD : ÍJ 

815 PRINT PT 10,1; M 1« UM TK-35 

COM PROUI 

Uü 05 DRD05. 51 

820 PRINT PT 14,1; " 2 . OUTRO COM 
PUTPDOR CÜMPPTIUÈL." 

830 IP INKEY$ = ,, 1" TH5N GOTO 300 
840 IF INKEY$s"2" THEN GOTO 300 

0 

850 UUTu 'Z«o 0 
900 CLS 

902 LET K=1 

905' PRINT M UE RSPO 00“ ; PT 1,8; "8 

18 , "PRRfl 0 jTK-35 CO 
M USO DE PROUIUO DE DPDOS• 

910 PRINT ,,** INFORME OURNTOS GR 
UPOS DE TERMGSUOCE IRP RRMRZENAR 


915 PRINT ,.“ENTRE COM 0 NOME D 
0 GRUPO, SEGUIDO DE " " : 18 4S , 

DEPOIS ENTRE COM OS.TERMOS ÜM 

R UM SEPPRPDOS POR 11 " , V " , 11 

920 PRINT , "ARMAZENE EM FITP C 
R D fi G R U P 0 .. IN F 0 R M R N D 0 P 0 C 0 M P 

UTflDQR P NUMERPCPO DO CON 

TPDOR DO GRPUPDOR . *’ 

925 PRINT ,,"Nfiü SE ASSUSTE'-. 0 
COMPUTADOR URI PJUDP-LO NP Tfl 

REFP•“ ‘ 

930 PRINT .."DIGITE OURLOUER TE 
r:LR , ” 

”535 PP USE 4E4 

y 4 0 L* L ij 

945 PRINT "OTOS. GRUPOS DE TERM 
OS UOCE UPI PRMPZENPR ?" 

950 INPUT U 

952 CL5 

957 DIM N$(10 ,103 

958 DIM S (10) 

959 FOR M =1 TH u 

960 PRINT '*DE 0 NOME DO st ; M; " , 

GPUP0 DE TERMn•*?- l ‘ 

965 INPUT N$(M> 

967 PRINT PT 8,2; NS (M). 

970 PRINT PT 3,0;“OUPL P NUMERA 
CRO DO CONTPDOR DO SEU GRRURD 


CRO 

DO C 

ONTADOR 

OR, 

P H R H 

0 

M; 

975 

INP 

UT 

S (M) 

977 

PRINT 

PT 8 

980 

FOR 

T = 

0 TO 

985 

NEX 

T T 


990 

CLS 



1010 

DIM 

D $ 

(500 


1020 PRINT “ENTRE COM 0 NOME DO 
ú-pi IRO SEGUIDO DE ” “ : DE 

POIS ENTRE GOMOS TERMOS SEGUIDOS 
D £ ,,l, »»!, It 

1025 PRINT /,"ENTRE N/L S0 ME NTE 
NO FINAL.” . _ 

1027 PRINT "UEUfi 0 EXEMPLO Dfi LI 
NHfl 3005 DO PROGRAMA."' 

1030 INPUT D$ 

104-1 GLS 

1042 PRINT "AGORA COLOQUE SEU GR 
AU ADOR EM ""REC ”", E ENTRE N/L 

1044 INPUT 0$ 

1050 LET Z=LEN D$ 

1060 LET Z$="D" 

1070 LET BC = USR 8288 

1080 IF BC =0 THEN PRINT “OK" 

1100 IF BC <>8 THEN PRINT "ERRO = 

"; BC 

1190 GOSUB 4000 

1200 NEXT M 

1210 FOR T=0 TO 20 

1220 NfcXT i 

1230 CLS 

1235 GOTO 5000 

1240 PRINT '‘ U0CE 6RAU0U "i U; '*. GR 
UPOS DE TERMOS." 

1250 PRINT ” UEUA OS NOMES E AS S 

UAS POSICOESNO CONTADOR DE SfcU G 

H U HDuR.".ii 

1260 FOR'M=1 TO U 

12 70 PRINT 1 ’ ‘;N$(M) .S (M 5 

1280 NEXT M , * 

1285 PRINT AT 18,4;“TESTE AGORA 
0 RESULTADO” 

1287 PRINT COLOQUE 0 GRAUADOR 
NA CONTAGEM tSCOLHIDA. tNTRE 

“p! pV ** 1 ** £ /*U t ** 

1292’IF'INKEY$=”" THEN GOTO 1292 
1294 CLS 

2010 DIM D $ í 500 J 
2020 LET Z5="D” 

2030 LET BC =USR 8305 

2040 IF BC=0 THEN GOTO 2Q5s 

2045 GOSUB 4800 

2050 PRINT "UOCE COMETEU 0 ERRO 

";BC;".","REPITA A OPERACAO." 

2051'SLOU 

2053 GOT0 1248 

P0HK 00SUE, 3500 

2060 GOSUB 4088 

2870 GOTO 1 

3880 CLS 

3802 LfcT K =2 
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:_:005 LET 0$=“AUES: PINTASSILGO .PO 
MBAjTUCANO,GAIVOTA,PARDAL ,GARHA, 
CEGONHA,PAPAGAIO,PERIQUITO,CÒRun 
j CuRUJA , BURITI, COTOVIA, UIRAPi IRi I 
ARARA ,ROLA , BEM TE VI, AUESTRUZ/" 
3010 GOSUB 3500 
3020 GOTO I 
3500 FOR N = 1 TO 10 

3510 IF D$ (N) = ” ; " THEN GOTO GHF0 
3520 NEXT N 

3530 LET E$=D$ í TO N-l) 

354:0 RETURN 
4-00.0 SLOLi 
4005 CLS 

4010 FOR T =0 TO 10 . 

*^T 8,6; "•DESLIGUE O GR 

RUhDuR * 11 

4030 PRINT AT 3,6"Siãp»M*MgSS3=2 


DESLIGUE 


N U ij 


4040 NEXT T 
4050 ULB 
4060 RETURN 

5000 PRINT "ENTRE ""REC"" NO GR* 
VADOR E N/L." - 

5010 PRINT .SALVE"" O PROGRAMA 

DEPOI3 DOS DADOS." 

5020 PAUSE 4E4 
5030 CLS 
5040 GOTO 760 


Uma vez terminado, armazene-o em fita entrando GOTO 750 (aten¬ 
ção, não entre GOTO 760). Esta gravação será uma gravação mestre; você 
irá fazer outra gravação mais tarde se estiver usando um TK-85. 

O programa se inicia perguntando que Computador você está 
usando. 


MENU 


V O C tz E ST A U S A N D O: 


1. UM TK-85 

UOM ARyUIVO DE DADOS. 


í« OUTRO COMPUTADOR COMPATIVE; 
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Se você escolher a Opçãa n° 2 verá as instruções abaixo e entran¬ 
do NEW UNE poderá jogar imediatamente. 


BEM VINDO AO 


VOGO; 


MEMÓRIA] 


DIGITE QUALQUER TECLA 
E EU LHE MOSTRO 
AVES, 

DURANTE .ALGUNS SEGUNDOS. 

DOCE DEVE TENTAR REPETIR TODOS 
OS TERMOS OUc VuCE LEMBRhRi . 

n .JOGO COMECA COM 2 TERMOS 
E TERMINA COM 6 TERMOS. 


Se, porém, você estiver usando um TK-85 e escolheu a 
então aparecem as instruções conforme abaixo: 


Opção n; 1, 


VERSÃO DO 


iJOGOr- 


MEMORIAI 


PARA O TK-85 COM USO DE ARQUIVO 
DE DADOS. 

INFORME QUANTOS GRUPOS DE TERMOS 
VOCE IRA ARMAZENAR. 

ENTRE COM O NOME DO GRUPO/ 
SEGUIDO DE DEPOIS ENTRE 

■COM OS TERMOS UM A UM SEPARADOS 
POR " 

ARMAZENE EM FITA CADA GRUPO, 
INFORMANDO RO COMPUTADOR 
A NUMERACAO DO CONTADOR 
DO GRAVADOR. 

NAO SE ASSUSTE. 0 COMPUTADOR 
UAI AüUDA-LO NÃ TAREFA. 

DIGITE QUALQUER TECLA. 


Siga as instruções rigorosamente para que o programa funcione di¬ 


reito: 


1) Informe quantos grupos de dados diferentes você irá fornecer. 

2) Agora: 
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DE 0 NOME DO 1. GRUPO DE TERMOS 

exemplo: INSETOS 

QUAL P, NUMERfiCfiO DO CüNTfiDÜR 
DO SEU GRAVADOR, PflRfi O 1 GRUPO? 

3) Verifique no contador do seu gravador, onde já deverá estar colocada a 
fita que irá armazenar os dados , qual é a numeração e informe o valor ao 
computador. 

ENTRE COM O NOME DO GRUPO 
SEGUIDO DE ": M ., DEPOIS ENTRE COM 
OS TERMOS SEGUIDOS DE ’V% 

E N TRE N/L S OMENTE N O FI N fiL. 

UEüfi O EXEMPLO Dfi LINHfi 3000 
DO PROGRAMA. 

4) Entre agora novamente com o nome do grupo ("insetos", no nosso ca¬ 
so), seguido de e entre com os nomes de insetos. 

Quanto mais nomes você entrar melhor ficará o jogo. 

Atenção, cada inseto deve estar separado do outro por uma vírgula. 

5) No fim entre com NEW UNE. 

6) Acione "REC" no gravadoçe depois NEW LINÉ. 

7) O programa irá armazenar no gravador o arquivo de insetos (cuidado 
com as picadas). 

8) Repita o procedimento até completar a quantidade de grupos diferentes 
de dados que você escolheu. 

9) Agora "Salve" o programa novamente (após os dados). 

Pronto, trabalho concluído. Agora vamos à diversão. 

Quando você quiser jogar, carregue o programa "salvado" por último. Ele 
iniciar-se-á com a seguinte tela: 

VOCE GRAVOU 3 GRUPOS•D TERMOS. 

VfcJfl OS NOMES E AS SUAS POSIÇÕES 
NO CONTADOR DO SEU GRAVADOR. 


AUTOMÓVEIS 751 
INSETOS 793 
JOGADORES 302‘ 


TESTE AGORA O RESULTADO 


COLOQUE O 
ESCOLHIDA. 


GRAVADOR .NA CONTfiGüM 
ENTRE “PLAY ", E N/L. 
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O programa permite escolher com que dados você quer jogar. Esco¬ 
lha e coloque o gravador na numeração indicada.Entre com "NEW LINE" 
e "PLAY"0 programa "carregará" os dados para a memória e o jogo co¬ 
meçará. 

O programa permitirá a você carregar novos* dados se você tiver 
acertado todos os seis nomes da jogada atual. 

Bom divertimento. 

O Professor 

O Programa foi criado para auxiliá-lo a memorizar pares de informa¬ 
ções, como por exemplo: países e suas capitais, elementos químicos e seus 
símbolos, palavras em português e suas traduções em inglês, etc.' 


1 REM O PROFESSOR 

t kaduzido e adaptado 

• POR B. C. STEIN 
REVISÃO MAI 1984. 

2 REM PARA "RUN” O PROGRAMA- 
ENTRE "GOTO 100" 

3 REM PARA ENTRAR COM NOVOS 

D fi D OS OU PARA MfiNIPULfiR O PROGRfi 
MA, ENTRE "GOTO 1000" 

10 LET B=INT (RND*TOT3+1 

1 ir! L O 

13 PRINT AT 4,0;"-DIGITE O PAR 
A RETORNAR AO MtNU-" 

14 RETURN 

15 LET D$- = INKEY$ 

16 IF D$="Q" THEN GOTO 99© ' 

17 RETURN 

20 PRINT "NESTA OPCAO, ";C$;“ 


2 

RETURN 


O cr 

• z; 

PRINT 11 UOCE 

í j 

O* I o o 

25 

’ RETURN 


30 

PRINT TRB 3; 

"UÜC 

o 1 
00 

RETURN 

PRINT RT 

) ; “0 


102 PRINT T$ 

104 PRINT AT 10.0:“POR FAVOR, E 
NTRE COM 0 SEU NOME." 

110 INPUT C$ 

115 CLS 

120 PRINT AT 4,0;"COMO Vfil ";C 

± ■ J * **? s s 
$ .« . 

121 PRINT s ‘nU UOU RJUDRR UO“:E w 

CONHECER " 

122 PRINT * DRDO/R UM/R M $“ 
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123 PRINT "UOCE IRA APRENDER >«E 
U/SUR 

124.' PRINT N$; " , E U ICE -UERSA . 

126 PRINT 

127 SLOU 

123 PRINT T RB 18;"MENU" 

129 PRINT 


138 PRINT 
11 

131 PRINT 

132 PRINT 

t 2 

133- PRINT 

f i 

134- PRINT 


1. REUISAO Dfl LIST 

2. TESTE PRATICO :| 

J« TEoTE DE RhhIüE 

4-« U 0 PIH R U o D H D U o 
5. FAZER NOUA LIST 


135 PRINT 

136 PRINT "ESCOLHA UMA DAS OPCO 
ES ACIMA." 

14.8 INPUT A 

14-2 IF A < > 1 AND A<>2 AND.A<>3 A 
ND A 0 4. AND A<>5 THEN GOTO 148 
145 CL5 

158 GOTO A*208 

208 PRINT AT 5,0;" -REUIS 

AO DA LISTA-" 

205 60SÜB 28 

210 PRINT "EU UOU MOSTRAR UM /UM 
A ";N$;"," 

211 PRINT "E RESPECTIUO/A ";M$; 

it 1 1 

* 

212 PRINT "DEPOIS DE MOSTRAR OS 
";TOT;" ITENS: PASSAREI A RELA 

CAG AO CONTRARIO." 

213 PRINT " ESCOLHA UM NUMERO D 

E 0 H y i 0 — p' H O O H L? E M M M J .Hí H P' 

IDA, 9-PASSAGEM MAIS LEN 

TA. " 

215 INPUT Z 

217 IF Z<0 OR Z >9 THEN GOTO 215 
228 FOR A = 1 TO TOT 
225 G 0 S U B 12 

238 PRINT AT 18.2 ; B$ í A) ; " " ; 

235 FOR N =8 TO 4+2*Z 

236 NEXt N 
248 GOSUB 15 
245 PRINT A$ (A) 

258 FOR N =8 TO 4+2*Z 

251 NEXT N 

255 GOSUB lb 

258 NEXT A 

265 FOR A = 1 TO TOT 

278 GOSUB 12 

275 PRINT AT 10.2;A$íA);" 

238 FOR N =8 TO 4 + 2*Z 
281 NEXT N 
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2AF ftnftilB 15 
298 PRINT B$(A) 

295 FOR N =8 TO 4+2*Z 

296 NEXT N 
:-;00 GOSUB 15 
385 NEXT A 

is 10 t? uT u y y 8 

400 PRINT AT 5,0.;" - TE ST 

E PRATICO---" 

485 GOSUB 28 

418 PRINT "UOCE RESPONDERA A 30 

QUESTÕES:"," QUESTÃO 1 

A 15" 

411 PRINT "EU LHE DOU UM/A ";M$ 

412 PRINT "UOCE ENTRA COM SEU/S 

t |p " • Kj ± ; * ! ** 

”413*PRINT " QUESTÃO 16 

A 38" 

414 PRINT "FAREMOS 0 INUERSO." 

415 PRINT "ENTRE ""NEU LIME"" P 
ARA COMECAR" 

417 LET U=8 

413 INPUT Z$ 

419 IF F2 THEN GOTO 435 
428 FOR A=1 TO TOT 

425 LET ESÍA)-sCHR$ 0 
438 NEXT A 
435 FOR A ~1 TO 15 
448 GOSUB 18, 

445 IF E$ CB3 = "X" THEN GOTO 448 
447 PRINT AT 9,8;"QUAL E O/A 
N4;" DO/A" 

458 PRINT AT 1Q,8;A$(B) 

460 INPUT D$ 

462 G 0 5 U B 2 5 

4. A f; q n 3» u E* 16 » 

478 IF LEN D$ =L2 THEN GOTO 475- 

472 LET D$=D$+" " 

473 GOTO 478 

475 IF D $ =8 $ C B) THEN GOTO 498 

476 PRINT "UOCE ERROU, 0 CERTO 
E* " 

477 PRINT TAB 8;B$(B) 

478 FOR N=8 TO 35 

479 NEXT N 
488 GOTO 497 

490 IF NOT F2 THEN LET E$CB3= ”X 


492 GOSUB 30 

493 LET U=ü+1 

495 FOR N =0 TO 16 

496 NEXT N 

497 NfcXT R 

500 FOR fl =1 TO 15 
505 GOSUB 10 

510 IF E$i:B3="X“ THEN GOTO 505 
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512 

PRINT 

P ! 

Mg; 58 

11 


513 

PRINT 

• * 

t • 

cr cr 
! J. w 

PRINT 

PT 

cr ■-> \7> 

INPUT 

Dg 


rhiN I L*'J« ll I / fi ** ‘ M ± - *• cr •» 

|íf PRIHT hT ii; 8 ;B$(BÍ 
528 INPUT D$ 

B 2 5 G 0 S U B 2 5 
5 2 7 L? U o U B I 6 

5?| IF LEN D $ =L 1 THEN GOTO 54F 
b3 5 LbT D$=D$ + " “ ~ ~ 

540 GOTO 530* 

5^5 l£ p$=H$ (B) THEN GOTO 568 
-0 PRINT "UuCÉ ERROU,, 0 CERTO 

551 PRINT TflB 
553 POR N =8 TO 48 
5b4 NtXI N 
555 GOTO 575 
550 GDSÜB 30 

565 IF NÜT F2 THEN LET Egí5)=“X 

570 FOR N=0 TO 20 

571 NEXT N 

572 LET U=Ut1 
575 "NEXT H 

cr w rs “• i c 
w » i„jw >«.* 

584 SLOi-í 

535 PRINT PT 9,0;Cg;“, UOCE FEZ 
“ ;Uj“ PONTOS. 85 
535 PRINT 

590 PRINT !S DIGITE “ 81 NEW LINE“ “ 
PPRP O MENU . 55 
592 INPUT Dg 
Q F Ü HT H Q Q 0 

500 PRINT PT 5 , O J “-TESTE 

DE RAPIDEZ- 45 

505 GOSUB 20 

610 PRINT 55 UOCE TEM 50 SEGUNDOS 
PPRP tNTRPRCOM O MPIOR NUMERO P 
OSSIüEL DE RESPOSTPS . 51 
511 PRINT M EU DOU UM/P “;Mg; “, “ 

612 PRINT ’*UOOE. ENTRP SEU/SUP 14 
; N g ; 15 . “ 

513 PRINT 


614 PRINT 

" -Hl PONTO POR 

RbSF 

t"“i *3 

i i : 

TP CERTP, 

-1 PONTO POR 

RE SP 

0 5 

TP ERRPDP, 

0 PONTOS SE 

i i %~t sr 

w i_: 1 

N 

RO SOI JBER 
INE“ “ . 55 

b bNTRPR 

“ “NEU 

1 

515 PRINT 
616 PRINT 

“ENTRE ““NEU L 

INE “ “ 

w 


PRP 

COMECPR !t 

617 

LET U =0 

b 10 

F P b 1 


INPUT Dg 

628 

r.«“i L;* i— •! jll Ã 
r\ j_ w h* 
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625 

POKE 164 ' 

37,0 

530 

GOSUB 18 


540 

PRINT RT 

10 , 

545 

INPUT D$ 


£Z À — * 
w M- r 

IF PEbK 

1543 

<62 

580 THEN 

GOTO 


650 IF D$ = M ‘“ THEN GOTO 530 
555 GOSUB 15 

F.R 7 IF LEN D$=L 2 THEN GOTO 560 
555 LET Dg-D$+“ “ 

*59 GOTO 557 

650 IF DÍOBÍ(B) THEN LbT ü=ü-I 
555 IF Dg=Bg CB) THEN LbT U=U + 1 
570 - GOTO 530 

300 LPRINT TPB ( 32 -LEN Tg}/ 2 ;T$ 


320 LPRINT 

830 FOR P =1 TO TOT 

840 LPRINT Pg(P 5 ,B$íP) 

350 NEXT H 
350 CLS 
90*0 GOTO 390 

990 CLS 

991 PRINT PT 5 , 14 ;“*’ 

9 9 5 G OT O 12 5 _ 

9 9 0 5 hU£ "O P R OFESS053‘ ! 

y y 7 y uT u 1 0 0 

999 CLS 

1000 PRINT PT 6 , 0 ;“ROTINP PPRP C 
RIPCP0 tz. Rb UISH0 Dfc DP D 0S « 85 

10 0 Fx G* OT 0 13 c! 3 
1006 LET F 1=0 

1009 PRINT PT 10 , 5 ;“ENTRE^COM 0 

TITULOfDO StU hROG 

RPMP . “ 

1010 INPUT Tg 
1012 LET F 2 =0 

<1 0 1 cr “* y ’ = , 

1828 PRINT RT 9 , 0 ,' "ENTRE COM 0 T 
ITULO (NO SINGULRR)DO F RIM ir IRO G 
RUPO DE ITENS DE SUfi RELRCfiO, 
DE PREFERENCIA OS ITENS MRIS LO 
NCOS." 

1838 INPUT M$ 

18 4 * L- L -r> 

1848 P RINT hT 9 0 " 0 Ufi NT 0 5 DIGIT 
OS TERfi P PfiLfiURfi MRIS LONGfl 0 .O 
PR IMEIRU UHUP U DE xTENB*: 

1858 INPUT Li 
1855 CLS 

1868 PRINT RT 9 , 8 .; "ENTRE COM 0 T 
IT ll L n í N 0 SIN G U L fl R) D 0 5 E G U N D 0 G R 
UPO DE ITENS." 

1878 INPUT N $ 

1073 CLS 




1075 PRINT PT 9,0; "CUANTOS DIGIT 
05 TERfi P PRLAURA MflIS LOWGP DO 
SEGUNDO GRUPO DE ITENS?" 

1080 IHPUT L2 
1085 CL5 

1090 PRINT PT 9,0;"QUANTOS ITENS 
NO TOTPL , TERP P SUP RELACAO* 7 " 
1095 INPUT TOT 
1180 CLS 

1185 PRINT PT 5,0;"TITULO-" 

•i rt»r pp TNT Tí 

1110 PRINT "TITULO DO 1. GRUPO D 
E ITENS:- ”;M$ 

1115 PRINT "MFIIÜR PALAURR DO 1. 
GRUPO: ":L1;“ LETRAS." 

1120 PRINT "TITULO DO 2. GRUPO D 
E ITENS:- ”.;N$ 

1125 PRINT "MflIOR PflLRURR DO 2. 
GRUPO : - " L2; " LETRAS . " 

.1130 PRINT "TOTAL DE ITENS DR RE 
LfiCflÜ: - " ; TOT 

1135 PRINT 

1140 PRINT "RS INFORMACOES ESTÃO 
CERTAS-S/N?" 

1142 INPUT ZS 

1145 IF Z$="S" THEN GOTO 1151 
1147 IF Z$="N" THEN RUN 999 

1150 IF Z$ <•> "S" OR Z$0"N" THEN 
GOTO 1140 

1151 IF TOT<40 THEN LET F2=l 
1160 DIM R$(TOT, L15 

1165 DIM B$ (TOT , L2) 

1170 DIM E$(TOT) 

1175 CLS 

1185 PRINT AT 10.0;"ENTRE COM n 
1. ITE M- D O 1. GRU P O,DEP OIS COM O 
1■ ITEM DO SEGUNDO GRUPO: ENTRE 
COM O 2 . ITEM DO 1. GRUPO', n 2,' 
ITEM DO 2. GRUPO, ' E 'ASS 

IM POR DIANTE. 

1190 FOR A=1 TO TOT 

1200 IF NOT F1 THEN GOTO 1250 

1205 S C ROL L 

1210 PRINT M$AS (fli 
1215 SCROLL 

122© PRINT N$;“—“;Bi (fli 
1225 INPUT ZS ' 

1230 IF Z$="" THEN GOTO 1290 
1250 SCROLL 
1255 PRINT M$ 

1260 INPUT A $(R 3 
1265 PRINT A $(fi) 

1270 SCROLL 
1275 PRINT N$ 

1280 INPUT B $ í fi) 

1285 PRINT B$(A} 
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1290 NEXT fi 
*1 j— 1 y 2 L" L v 1 

1295 IF Fi THEN GOTO 1320 
I38C PR INT hT 7,8;" NOb VAMUS H 
GORfi REVER ChDh PRR DE ITENS"* 

OURNDO ELES 
APARECEREM NA TELA ENTRE ,,M NEU 
LINE ,,M ,SE ESTIVEREM CORRETOS , 


1381 PRINT u ENTRE ""X"" , E v"N 
EU LINE ,,!t , SE ES TIVEREM ERRADO 


\Z 11 
v 1 t 


1302 PRINT " NESTE CASO, UOLTE 
fi ENTRAR COM O ITEM." 

1305 LET FI=1 
1310 GOTO 1190 

1320 PRINT AT 5,5.;"U0CE PODE AGO 
RR • " 

1328 PRINT 
PRINT 

1335 PRINT "1, CRIAR UM NOVO ARO 

Uiuü«" 

1336 PRINT "2. REFAZER A REVISÃO 
DO AROUIVO «“ 

1338 PRINT *'3. ,,,, SflVE nn O PROGRA 
MA." 

1339 PRINT 

1348 PRINT "ESCOLHA UMA DAS OPCO 

, " 

1345 INPUT A 
ÍS4b CLvS 

1347 IF A=3 THEN GOTO 1378 

1348 IF A=1 THEN RUN 1807 
1358 IF A=2 THEN GOTO 1388 
1355 GOTO 1330 

1358 CLS 

1378 PRINT AT 10,8;" ACIONE SEU 
GRAVADOR 'NA POSICAO ""REC"" , E 
ENTRE ""NEW LINE""." 

1388 INPUT-Z$ 

1390 IF W 'z$ = “" THEN GOTO 996 
1400 STOP 


Uma vez digitado o programa, proceda da seguinte forma: 
Parte I: Manipulação do Programa 

1) Se você estiver no modo FAST, volte ao modo SLOW 

2) Nunca, (nunca mesmo) entre com RUN 

3) GOT01000 

4) Aparecerá o "MENU" com 3 opções 
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R0TINH kHRh CR XP.CHü £ K£U XSP0 
DE DADOS. 


1 , 



w » 


CRIAR UM NGUÜ ARQUIVO. 

RtFAZfcR H RcUISAO DO ARQUIVO. 
"SAVE" 0 PROGRAMA. 


ESCOLHA UMA DAS OPCOES. 

5) Escolha a opção número 1 e NEW UNE 

6) Siga as instruções do programa: 

a) escolha o título; por exemplo: PAÍSES E SUAS CAPITAIS, (este será 
também o título com o qual o programa será "salvado" mais adian¬ 
te). 

b) escolha o título (no singular) da primeira série de dados: PAÍS (no 
nosso exemplo). 

c) Forneça o número de letras da palavra mais comprida, por exemplo: 
15. 

d) e e) Siga o mesmo procedimento para o segundo grupo de informa¬ 
ções por exemplo: CAPITAL e 15 dígitos. 

f) Entre agora com o número de países e capitais que você quer listar, 
por exemplo 60. 

7) O programa então lhe auxiliará a fazer uma revisão dos dados entrados 
até agora. Se houver algum erro, entre "N" (não) e volte a fornecer os 
dados solicitados. 

8) Se estiver tudo certo, entre "S" (sim), comece a fornecer ao 
computador os dados, (no nosso exemplo, países e suas respectivas capi¬ 
tais), até completar a série. 

Se você perceber que cometeu algum erro, toque em frente. Você 
terá oportunidade de fazer a correção por ocasião da revisão. 

9) Após entrar com todos os pares de informações, o programa auxiliará 
você a fazer uma revisão. A cada par de dados entre "NEW LINE" se a 
informação estiver correta. Entre "X" se estiver errada e corrija a informa¬ 
ção, entrando novamente com o país e sua capital. 

10) Após a revisão o programa volta ao Menu. Neste ponto escolha a 
opção 3. Coloque seu gravador em "REC" e grave (SAVE) o programa em 
fita. 

Parte II: Uso do Programa 

Depois de todo o nosso trabalho e dedicação (ufa. . .), estamos 
agora prontos para usufruir das aulas do nosso professor cibernético. 

1) Após ter "salvado" o programa em fita, ou quando, numa outra opor¬ 
tunidade, você passá-lo da fita para o gravador usando o comando 
LOAD "PAÍSES E SUAS CAPITAIS" (no nosso exemplo, é claro), ele ini¬ 
ciar-se-á automaticamente convidando você a fornecer seu nome. 

2) A partir desse momento, o tratamento entre o computador e você será 
personalizado. Ele se dirigirá a você e lhe mostrará o MENU de opções que 
você tem para memorizar os "PAÍSES E SUAS CAPITAIS"; 
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COMO URI '? 

'c. i_j UuU HüUDhR UuL-E H UUi^HELcK 

países e suas capitais. 

D A D Ü/A U M/A PAIS, 

UHCE IRA APRENDER SEU/SUA 
CAPITAL, E U ICE -VERSA. 

MENU 

1. REUISAO DA LISTA 

2. TESTE PRATICO 

3. TESTE DE RAPIDEZ 
4-. COPIAR OS DADOS 
5. FAZER NOUA LISTA 

ESCOLHA UMA DAS OPCOES ACIMA 

3) Escolhendo a opção 1: revisão da lista, você poderá rever as capitais e 
seus respectivos países e vice-versa. Você pode escolher 10 velocida¬ 
des de revisão sendo 0 a mais rápida e 9 a mais lenta. Para interromper a 
revisão entre "Q" e "NEW LINE", que também interromperá as opções 
2 e 3 e retornará você ao MENU. 

4) Na opção n? 2: 

-TESTE PRATICO- 

NESTA ÜPCAO, 

UOCE RESPONDERA A 30 QUESTÕES 
ij.1 U iz. ST H O I H Is 
EU LHE DOU UM/A PAIS 
U O C E E NT R A C 0 M £• E U / S U A U A FIT H u « 

QUESTÃO 16 A 30 
FAREMOS O INVERSO. 

ENTRE "NEU LINE" PARA COMECAR 

O computador escolherá aleatoriamente 15 países e você deverá 
entrar com as suas respectivas capitais. 

Depois ele escolherá 15 capitais e você deverá fornecer os respec¬ 
tivos países. 

No fim você será informado sobre quantas respostas corretas deu, 
No caso de haver mais do que 40 itens fornecidos ao computador, ele não 
repetirá a pergunta cuja resposta dada estiver correta. 

5) Na opção 3, 

-teste de rapidez- 

NESTA UPUHUí _ 

UOCE TEM 60 SEGUNDOS PARA ENTRAR 
CÕH O MAIOR NUMERO POSSÍVEL DE 
RESPOSTAS. 

EU DOU UM/A PAIS, 

UOCE ENTRA SEU/SUA CAPITAL. 

+1 PONTO POR RESPOSTA CERTA, 

-1 PONTO POR RESPOSTA ERRADA, 

O PONTAS SE UOCE NAü SOUBER 
E ENTRAR "NEU LINE". 

ENTRE "NEU LINE” PARA COMECAR 
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que é um teste de rapidez, você deverá fornecer em 60 segundos o maior 
número possível de capitais para os países perguntados. Cada resposta 
certa vale 1 ponto, cada resposta errada você perde 1 ponto. Se você só. 
entrar "NEW UNE" , não perde nem ganha pontos. 

6) A opção 4 permite listar na Impressora todos os países, e suas capitais, 
armazenados na memória. 


PAÍSES E 

SUAS CAPITAIS 

BRASIL 

BRASILIR 

ARGENTINA 

BUENOS RIRES 

COLOMBIA 

BOGOTÁ 

PERU 

LIMA 

CHILE 

SANTIAGO 

UENEZUELA 

CARACAS 

BOLIUIA 

LA PAZ 

EQUADOR 

QUITO 

URUGUAI 

MONTEVIDÉU 

PARAGUAI 

ASSUNCAO 

PR NAMA 

PANAMA 

NICRRRGUfl 

MANAGUA 

HONDURAS 

TEGUCIGALPA 

CUBA 

HAVANA 

HAITI 

PORTO PRÍNCIPE 

MÉXICO 

MÉXICO 

ESTADOS UNIDOS 

WASHINGTON 

CANfiOR- 

OTAUA 

ALBANIA 

TIRANA 

ALEMANHA 

BONN 

AUSTRIA 

VIENA 

BÉLGICA 

BRUXELAS 

BULGRRIA 

SOFIA 

DINAMARCA 

KOPENHAGEN 

ESPANHA 

MADRID 

F INLAND IA 

HELSINKI 

FRANCA 

PARIS 

GR A-B R ET A N H A 

LONDRES 

GRÉCIA 

ATENAS 

HOLANDA 

AMSTERDAM 

HUNGRIA 

BUDAPEST 

ISLANDIA 

REYKJAVIK 

IT HL Ih 

ROMA 


7) É claro que você pode preparar diversas "aulas" diferentes com o "PRO¬ 
FESSOR" e armazenar cada uma, com seu respectivo nome, em fita. Es¬ 
colhendo a opção 5 o programa volta ao modo que permite alimentá-lo 
com novos pares de dados. 

Se você quiser armazenar o programa em fita sem aula alguma, su¬ 
giro que, após ter entrado com o mesmo no computador, armazene-o em 
fita, entrando SAVE "O PROFESSOR". Quando, em outra ocasião, você 
quiser usá-lo para preparar uma aula entre LOAD "O PROFESSOR", após 
tê-lo carregado no computador, entre "GOT01000". 

Boa aula e boas notas! 


CAPITULO III 
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PROGRAME EM LINGUAGEM DE MÁQUINA SEM 
ENTENDER DE LINGUAGEM DE MÁQUINA 


Este capítulo vai ensinar ao leitor como elaborar programas com ro¬ 
tinas em Linguagem de Máquina, sem precisar necessariamente entender 
esta linguagem. Existe um sem número de programas elaborados em 
BASIC que utilizam rotinas em código de máquina para conseguirem efei¬ 
tos especiais. 

O que vamos explicar é como utilizar estas rotinas que são coloca¬ 
das numa primeira linha REM do programa. 

Se o leitor gostou do efeito de uma rotina deste tipo, contida hum 

programa em fita cassete, proceda assim: 

1) Carregue o programa no seu Computador. 

2) Entre com um dos dois programas abaixo (cuidado: use a numeração 
das linhas que não interfiram com os números de linha do programa). 
Programa para quem não tem impressora: 

9910 PRINT “END. INICIAL?* 1 
9915 INPUT H 
9 92 0* C L S 
9 cl 5 o U R L-' 1 L L 

9930 PRIHT "ENDEREÇO";TRB 10; "CR 
RRCTER";TRB 21;"CODIGO“ 


9 935 

FÜR N = H 

-r 

; i : 

994-0 

SCR0LL 


9945 

PRINT N 

> T R 

TRB 2 

3;PEEK 

K i 

9950 

FOR T =0 

TÜ 

9955 

NEXT T 


9960 

NEXT N 



MyUíd tíi lutí uuiu ^ HMviiMw w v..«v.w 7 w ■■—— — - — 

se a rotina estiver na primeira linha do programa o valor do endereço inicial 
é = 16514. Agora vá anotando o endereço e o código numa folha a parte, 
’a medida que estes valores lhe são apresentados na tela.’ 

Vá observando a coluna de caracteres. 

Copie os valores de endereço e código, até que o último caractere 
contido na linha REM do programa apareça na tela (você deverá notar 
este último caractere de rotina, anteriormente, quando listar o programa), 
b) Programa para quem tem impressora: 

9910 PRINT "END. INICIAL?" 

9920 INPUi h 

qq:30 LPRINT "ENDEREÇO" ; TRB 10; "C 
RPRCTER •• ; TRB 21; " CODIGO " 

9940 LPRINT 

QQR0 for N=fi TO 30000 

QQF.0 LPRINT N; TRB 13;CHR$ PEcK N 

;TRB 23;PEEK N 

9970 NEXT N 
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Entre GOTO 9910, informe o endereço inicial e deixe a impressora 
trabalhar até aparecer na coluna de caracteres o último caractere que está 
contido na Rotina REM. Pronto. Você já tem agora os códigos necessários 
para entrar com a rotina em seu próprio programa. 

Entre NEW, apagando tudo que se encontra presente na memória 
do computador. 

Entre agora com o "PROGRAMA INICIAL" abaixo: 


i RtM (COLOQUE 
0 U fi M T O S i" O R t M 0 S 
U U' ■ X í—j U O r*i pí J imo 


13 

r—. f—j -t- u i~r- 
w W I l'.t 1 
i n. 4* t i í 

* > <“ k |F. 

c.Nl? * 

23 

iii u u t 

R 

25 

PK IN í 

R 

33 

PRINT 

ní 

—y 

U 

* 

43 

INPUT 

B 

4.F» 

PRINT 

6 

50 

FOR N 

=R TO 

55 

60 

73 

SCROL 

W W 1 IM t 

» n, «w» n « 

INPUT 

L 

w • 

í 1 ,1 Q « 

D 

I 

o 3 

PRINT 

P 

93 

POKE 

N , P 

130 

NEXT 

w 

a \ 


TfiNI OS 
CODTGÜS 

• i t i i i.t 

INICIAL 
FINAL ? 


PONTOS 

QUE 



100 NEXT T 
110 SCROLL 
120 NEXT M 
130 LET fl=fi + l 
140 NEXT N 

150 PRINT TfiB 15, 'FIM*' 

160 STOP 

Forneça os endereços inicial e final e vá comparando o código apre¬ 
sentado na tela com o correto anotado anteriormente. Se houver al¬ 
gum erro faça um sinal na sua relação a parte. Depois de percorrer todos os 
códigos para corrigir possíveis erros proceda assim: entre com o comando 
direto POKE (endereço do código errado), código certo e NEW LINE para 
cada erro. Pronto, rotina corrigida. 

Apague então todas as linhas de O REVISOR só mantendo a linha 

REM. 

Agora, quando quiser usar a rotina,entre com a linha RAND 
USR 16514 é o seu programa irá se beneficiar dos efeitos desta rotina 
neste ponto. 

Para ajudar o leitor a entender melhor o que acabei de expor, vamos 
analisar juntos, a seguir, um exemplo prático. 

Vamos supor que a rotina a ser utilizada é a seguinte: 


Entre RUN e forneça o endereço inicial (16514 lembra-se?). 

Forneça o endereço final (é o endereço do último código da rotina 
que você irá usar). Agora, 'a medida que os endereços aparecerem na tela, 
digite o respectivo código. Quando terminar, o leitor deve apagar todas as 
linhas exceto a linha 1 e pronto, a rotina estará concluída. 

Se o leitor quiser agora corrigir os códigos que digitou para criar a 
rotina em código de máquina, sugiro que entre com o programa abaixo, 
adiante da rotina da linha R EM. 


REVISOR, 


M 


10 PRINT “ENDEREÇO INICIRL- “; 
20 INPUT R ' 

25 PRINT fi 

30 PRINT “ENDEREÇO FINAL- 
40 INPUT B ' 

45 PRINT B 

47 FOR T =0 TO 100 

48 NEXT T 

49 CLS 

50 FOR N =0 TO 1 
*0 SCROLL 

70 FOR M=fi TO B 

80 PRINT TfiB 16-+-N; M.; PEEK 

90 FOR T =0 TO 35 


1 REM E£RND 
* GOSUB STflN 


r RST 


5 


56N * CHR 


Usando um dos 2 programas elaborados para conseguir os códigos 
da rotina, o leitor irá obter a seguinte tabela: 


ENDEREÇO 

CARACTERE 

coDieo 

16 d 14- 

ST 

Um 

4-2 

10515 

f' 

12 

1F5I5 

RND* 

54- 

15517 

rRc*T 

229 

15518 

) 

•1 -y 

X t 

15512 

5 

w 4 - 

15520 

•l cr* - *: *i 

X C* O ü X 

t 

0 

.-ter 

.“i 

•" ÜZ “ * — i » 

L. W CL a 
•i c cr * — i ■ •• 

SGN 

209 

JL LD CL >-* 

1 lT 1 D CL 4- 

CHRÍ 

H14* 

15 525 

& 

w 

1C 1 D 'cl D 

GOSUB 

H w »* 

15527 

Ü 

175 

15528 

TRN 

201 


O último caractere da rotina REM é "TAN", portanto o último ende¬ 
reço a ser utilizado da rotina é 16528 com o seu respectivo código "201". 
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Agora utilize o "PROGRAMA INICIAL" da seguinte forma: 

A primeira linha REM terá 15 pontos, o endereço inicial será 16514, 
e o endereço final 16528. Entre com os códigos acima, depois apague 
tòdas as linhas (exceto a primeira, é claro). 

Entre com o programa abaixo para ver um exemplo prático do efeito 
da rotina: 


I REM E£RND FR ST )5 ;3GN * CHR 
$ * GOSUB GJThN 

f; Fp:-.T 

10 FOR N =0 TO IO 
15 PRINT 'Wia 


mm® 


20 NEXT N 

25 PRINT PT 20,4j‘ , UEüH 0 QlJE F 
ü SEI FPZER« 

30 SLOU 
35 GOSUB 100 
40 FOR N=0 TO 17 
45 IF N =5 THEN PRINT PT 20,13; 
"LEGPL, NE* ?" 

50 IF N = 10 THEN PRINT PT 20,2; 

‘PGORP E= P SUP UEZ DE CRIPR. 

55 RPND USR 16514 
50 GOSUB 100 
65 PRINT PT 


70 RPND USR 16514 


75 GOSUB 100 



100 FOR T =0 TO 20 
110 NEXT T 
120 RETURN 


Use agora sua imaginação e crie seus próprios programas usando 
esta rotina. 

A seguir descreverei outra rotina em código de máquina muito útil. 
Ela permite colocar uma chave de segurança nos seus programas. 


"O Sentinela" 


Segurança é a palavra do momento. 

Nós, os aficcionados do TK também temos que tê-la. O Programa 
"O SENTINELA" dá segurança total aos seus programas em BASIC, não 
permitindo a ninguém acesso a eles sem que conheça o código secreto de 
proteção. Suponhamos que você queira manter protegido o programa 
"O PROFESSOR", apresentado no Capítulo II. Proceda da seguinte ma¬ 
neira: 

1) Carregue o programa no computador. 
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2) Entre com a linha 1 REM e 41 caracteres. 


1 REM 0000000000000003 
000000000000000000 


00000000 


3) Entre com as linhas abaixo: 

9000gFÜR N = i 


q D w« v- 


q Q -i 0 

» l Ui tn' 

9020 

3030 


PP TMT M 

INPUT . 
pRX^rc p 


9040 POKE f'i F 
9050 NEXT fs 

4) Entre com "GOTO 9000" (evite entrar com RUN 9000 pois isso iria apa¬ 
gar os possíveis dados do programa). 

5) Entre com os códigos abaixo: 


16 514. . 
15 516 . . 
15518. , 
15520 . , 

•t ,*•* «-*. 

. 

15524. . 
16526 . . 

^ O 

-u W W* w I I 

15530. . 

.t .*• r* .n .n 

W» W* h > .i # 0 

m j K <=T 

«a. w w* w H- * /• 

15536 x x 
Í6b36. . 

a .4 iTj 

-a- w w -r W l f 

*í P. ^ A O 

w w -4* * « 

o : 4 4 * « 

15543.. 

15550.. 
15552. 

15554.. 


. 205 
. 64 
. 57 
X 249 
. 145 
.254 


.201 
. 137 
«4 4 


- 205 
. 7 
. 39 
. 190 
.238 
.50 
, 6»4 

1 OP 
. JL e. u* 

4 -*KS 
* XiC.L.1 


155 

-t c «cr 
x C' • 


! • F: r*\ 


15.4.145 
17. ..254 

19.. .32 
21 •..205 

23.. .64 
2 w...45 

27.. .242 
’Z- q w Pi f 

*_* X . . 4 J— 

33.. . 48 

35.. .45 

37.. .77 

39.. .159 

1 .< ♦. cr o 

'-i-* x * . . ■—’ * 

■-+• q * ♦ * 6 4 
4 q... 40 

' “7 1 F, 

1 '•**“ ; . . . X X— W 

’ •*: O •*? Q , 

■ cr í o 0M 

■ V. 5 X . . * 4— w X 

’cr--- *1 'jP 

’ ... X iin p 


6) Elimine as linhas 9000 a 9050 do programa que agora não serão mais 
necessárias (entre 9000 e NEW UNE, 9010 e NEW UNE, e assim por 
diante). 

7) Modifique a linha 997 do programa, conforme indicado, de GOTO 100 
para GOTO 90. 

S97 GOTO 90 

8) Entre agora com as linhas: 


90 PRINT RT 11,5; “S3S 

92 RR ND USR 16514- 
94. CLS 


9) Pronto,é só. Vejamos agora o resultado: entre com "GOTO 90", 

10) Aparecerá a mensagem em letras invertidas "PROGRAMA PROTEGI¬ 
DO" e nada conseguirá fazer b programa rodar. 
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11) QUASE NADA: experimente entrar com os caracteres "T", "K" em 
intervalos de mais ou menos meio segundo; pronto — proteção aberta (os 
caracteres de segurança são "T" e "K"). 

12) Agora a parte mais importante: você pode alterar os dois caracteres 
de segurança a seu gosto. Vejamos como: 

13) Corisulte o Apêndice A do Manual do seu computador; lá se encontra 
o conjunto de Caracteres. 

14) Suponhamos que você queira alterar o código secreto para "B", "S": 

15) O caractere "B" tem código 39 
O caractere "S" tem código 56 

16) Faça assim, entre com os comandos diretos 
POKÉ-ieõlS, 39 

POKE16525,56 

Pronto, já temos o novo código registrado. 

17) Experimente: entre GOTO 90 e tente rodar o programa; você só o con¬ 
seguirá digitando "B" e depois "S". 

18) Agora entre com “GOTO 1320" e você estará retornando à parte prin¬ 
cipal de "O PROFESSOR". 

Se o programa já contiver dados, escolha a opção 3 e "salve" o 
programa em fita. Você só conseguirá rodá-lo digitando o seu código se¬ 
creto. Nenhum aluno seu terá condições de alterar os dados do seu pro¬ 
grama "O PROFESSOR". 

Evidentemente você pode colocar "O SENTINELA" em qualquer 
programa seu em BASIC. Apenas tome as seguintes precauções: 

a) As linhas de programa que nós escolhemos de 9000 a 9050 de¬ 
vem ser colocadas em linhas não usadas no seu programa principal. 

b) As linhas 

- PRINTAT 11,5; "PROGRAMA PROTEGIDO" 

- RAND USR 16514 

- CLS 

devem sempre ser colocadas após a linha de instrução SAVE do seu pro¬ 
grama, para fc|ue, ao carregá-lo no computador, automaticamente en¬ 
tre na rotina de bloqueio. 


.CAPITULO IU 

O COMPU Th DORE 
O UIDEO ChSSE! t 
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O COMPUTADOR E O VÍDEO CASSETE 


Este capítulo foi escrito especialmente para os proprietários de ví¬ 
deo-cassete ou de filmadoras Super 8. 

Você vai aprender comó usar o seu computador para fazer títulos, 
apresentações e finais para as suas realizações em vídeo ou filme. A seguir 
são mostrados 3 programas: 

— O APRESENTADOR que gera aberturas e títulos principais, 

— O APRESENTADOR II para os finais de suas obras, 

— O APRESENTADOR III que permite fazer títulos e subtítulos que per¬ 
correm a tela de baixo para cima (como aqueles que você vê nas aberturas 
e finais dos programas de televisão). 

Se você, por acaso, ainda não aderiu ao Vídeo-Cassete,mas curte 
fazer filmes em Super 8, também poderá criar os seus títulos e depois fil¬ 
má-los diretamente da tela de sua televisão, desde que ela tenha pelo 
menos 20 polegadas e esteja bem regulada. 

Eu já fiz títulos desta maneira e os resultados foram muito bons. 

O Apresentador 


O APRESENTADOR cria aberturas para seus programas em Vídeo- 
Cassete com até 5 telas diferentes para os títulos, que se sucederão uns 
aos outros na tela de sua TV. Se você só possue o aparelho de vídeo-casse¬ 
te e ainda não possue a câmara, ainda assim o programa será de muita uti¬ 
lidade, pois você poderá fazer aberturas e finais para programas gravados 
diretamente da televisão. 

Parte I: Entre com o "PROGRAMA INICIAL" mostrado no Ca¬ 
pítulo III do livro. 

RUN 

O endereço inicial será 16514 

O endereço final será 16536 

Forneça os códigos abaixo: 


1 Kj £«14 

*1 C -T d 

-L -L w 

16518 

16528 

16522 

•* C 1— * : .< , 

i li .1 t-b» 


•ICC >~s 

o. 

16582 

16534 

16535 


t w c£\J "7 

* « 1 H w* 

. . 42 
. .64^ 

a a 2 1 

t « C 'J t 
. . £01 

* 

* . t* 4 

a 

a * 

*— A 

a a C4- 


lÕ^lS...91 

1 6 1 7 a a a 6 4 

1 v3 5 1 y a a I Ic 
16521. . . 1 

15523.. .2 

a cr cr cr “7 çz 

*_' iZ. •_* » a a JL i C* 

í’ a a a CL --I* í” 

18529.1.12 
1 5 1?31. « . 42 

16533.. .64 

lb5'JC' 1 . 1 c41 
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Depois apague as linhas de 10 a 100 mantendo a linha 1 REM „ . . 
Parte II: Introdução do Programa Principal: 

Mantendo a linha 1 REM, entre com paciência e dedicação todo o 
programa da listagem adiante: 


NO MAXIM 


1 REM GOSUB ??RNDE£RND*NOT * 
G O S U B ST R N G O S U B £ P N D ER N D L ET 

TRN 

2 FOR C=-l TH 0 

3 5L0U 
4- CLS 

5 PRINT "1. RPRESEHTflCflO”, , , , 

6 PRINT *'QUANTAS LETRAS TERR 
fl ";C+2;". LINHA?" 

7 INPUT L 

8 IF L >8 THEN P RINT 
O 8 LETRAS.” 

9 IF L >8 THEN GOTO 7 

10 PRINT "A ";C+2; ". LINHA- TER 
A ";Lj” LETRAS." 

12 PRINT "ENTRE COM A ";C+2i" 
LINHA." 

20 INPUT A $ 

24- Ir- LEN A$oL THEN PRINT "AT 
ENCAO, UOCE ESCOLHEU ":L;" LETRA 

ti 9 

9 

26 IP LEN H$ <>L THEN GOTO 20 

27 CLS 
26 PhST 

29 IF C=0 THEN RftND USR 16527 

30 LET E=C +1 

40 POR P=0 TO 7 
*0 LET 1=9504- C O D E h $ 

60 POR G =0 Tü 7 
70 LET X = PEEK Ío+I+G) 

■80 POR H =0 TO 7 
90 LET Z=INT ÍX/2+*i7-Hl t /2 
100 IÇtZoINT Z THEN PLOT H + S*F 
+ i 8-L J -F4 , 40 -G - 8 +E -2 * (C+21 
110 NEXT H 
120 NEXT G 
13 0 L ET H $ = H $ i H T 0 j 

140 Ir LEN H$=0 THEN GOTO 2F0 

150 NEXT P 
150 NEXT E 
240 SLOU 
d 0 Lr O O B 100 

285 NEXT C 

286 SLOU 

237 PRINT RT 19,0;“fi RPRE3ENTRC 
RO PICOU BOfl HSSIM?" 

289 PRINT “ENTRE ,,,, S' ,U SE GQSTn 
ü DELh *' 

-291 PRINT “ENTRE “ "N 4M SE OUIZE 
R REFflZE-Lfl" 


295 

IF INKEY$=”S 

” THEN GOTO 

300 

IF INKEY$ = "N 

" THEN GOTO 

305 

GOTO 295 



310 

C L 0 



312 

LET M = 1 



315 

GOTO 2000 



500 

LET D=7 



w'0c! 

AOTO 3000 



PS 5 

LET X=13 



570 

FOR V =8 TO 1 

5 


575 

G u *0 U E* 9 y 8 0 



530 

F n p X — 14 T u 

15 


535 

LET Y =15 



590 

AO SUB 9990 



9 5 

LET X=1S 



500 

FOR Y = 14 TO 

11 

STEP -1 

505 

c u •—* U E' y y 8 8 



510 

Fnp X=15 TO 

14 

STEP ~i 

51w« 

LET Y=11 



520 

GOSUB 9990 



525 

LET X =19 



530 

F0R Y = 11 TO 

is 


■— cr 

U* •-» 

iy M o u d:* y y 1 0 



540 

PLOT - 20,14. 



545 

PLOT 21,15 



550 

LET D =25. 



St>5 

GOTO 3200 



725 

F 0 R X = 3 3 T 0 

w‘0 

STEP -1 

730 

LET Y=15 



70 C 

1 w w 

AOSUB 9990 



740 

LET X =30 



745 

FOR Y =14 TO 

13 

STEP -1 

750 

GOSUB 9988 



755 

FOR X=31 TO 



750 

LtT Y=Í3 



d C* 
t D w 

AH SUB 9998 

- 


770 

LET X =33 



775 

FOR Y = 12 TO 

11 

STEP -1 

730 

GOSUB 9988 



785 

FOR X =32 TO 

30 

STEP -1 

790 

LET Y = 11 . 



yQ €? t 

AH SUB 9998 



800 

LET D=37 



805 

GOTO 3288 



7 nr 
Q r w 

LET X =42 



380 

FOR Y=15 TO 

11 

STEP -1 

335 

G' o U B y y 8 8 



890 

PLOT 43,14 



900 

FOR X =44 TO 

45 


915 

LET Y' = 15 



920 

y u o u E' y y y 8 



925 

LET X=45 



930 

FOR Y = 15 TO 

11 

mm «Ht «pw* • 

oTEP - ± 

935 

- *. i i !“i ij s y 98 



y 40 

LET X =58 



945 

FOR Y = 17 TO 

11 

STEP -1 




0 
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950 

955 

950 

970 

975 

980 


GOSUB 9980 
PLOT 49,15 
PLÜ! 51,15 

PLGT 51,11 
LET D=55 
GOTO 3080 


2001 PRINT "O APRESENTADOR", ,, , , 

t 

2030 PRINT "UÜCE QUER,“, 

203b PRINT ”1, CRIAR ÜMÁ RPPESEN 
TRCAO ",,, 

204-0 PRINT “2. FAZER /REFAZER ns 
TÍTULOS",,, ’ ’ 

204-5 PRINT ”3. UER UMA APRESFNTR 
CAO COMPLETA" , , 

2050 PRINT "4-, UER SO OS TITULAS 


05 TÍTULOS”' 


2055 

PRINT i! 5," 

TPCPü 5EM/00M 

2068 

IF INKEY$ = 

2078 

0 

If IN.KEY $ = 

V 

2030 

0 

IF INKEY$ = 

w 

o O •” 

8 

IF INKEY$= 

2085 

IF INKEY$ = 

8 


2890 

GOTO 2050 

2580 

íz i - *!*T •“** —? ~í cr 

L? '«,* í ij { ic. cr* 

3088 

FOR X=D TO 

3010 

LtT y = 1 y 

3028 

605 UB 9998 

o 0 o 0 

LET X = D t2 

3040 

FOR Y = 14 T 

3050 

GO5 UB 9988 

3068 

F L y T y *f" y , 1 

3070 

FOR X = D 4i ‘ 

■-« 0 O 8 

LüT Y = 13 

3090 

GOSUB 9998 

3180 

LET X = D - 1 

3118 

FOR Y = 12 Ti 

3128 

G 0 5 U B 9 9 8 8 

3138 

FOR X=5’fo 

3148 

LET Y=11 

3150 

G 0 S U B 9 9 98 

3150 

t? UT 0 ü "í o 0 


3200 FOR X =D TO D+2 
3210 LET Y=13 
U22-8 GO Si íE» QQQ0 
3238 LET~X=6+2 
324-0 FOR Y = 14- TO 15 
b 0 ls US U 3 9 98 0 

3250 FOR X =0 + 1 TO D-l STFP _i 
3270 LET Y = 15 " " 


3280 

GOSUB 

Q998 

3290 

LET X 

=d-i 

3380 

POR Y 

=14 TO 11 5TEP -1 

3318 

GOSUB 

9988 

3320 

F 0 R X 

=D T 0 D 4* 2 

3330 

L ET Y 

= 11 

3340 

G 0 S U B 

9 99 8 

3350 

G OT 0 

100*D 

3780 

G OT 0 

w 7 y 

4480 

GOSUB 

5808 

4485 

IF M = 

1 THEN GOTO 8558 

4410 

GOTO 

8500 

5880 

SLOW 


5882 

CLS 


5005 

F 0 R C 

= -l TO 0 

5818 

pnsi. JB 

5808 

5828 

GOSUB 

8500 

5038 

NEXT 

n 

5048 

L? y o U 

5808 

5088 

y uT y 

588 

5098 

GOSUB 

5000 

5080 

FOR N 

=0 TO 10 

5010 

NEXT 

N 

5028 

RETURN 

7088 

CLS 


7881 

PRIHT 

*' COLOQUE SEU Gkh 

H NA 

POSICPO *’ "REC" “ , E ENTR 

NEWLINE ,,Í,M 


7882 

INPUT 

Q $ 

7883 

CLS 


7884 

LET M 

= 0 

7018 

LET L$ = " * .” 

7028 

LET L 

$(1)=CHR$ PEfcK 164 

7830 

LET L 

$(2)=CHRf PEEK 154 

7048 

PÜKfc 

16405,113 

7850 

POKE 

10 40 4- , 0 

7860 

y*—{ IJ o 

" Ü APRESENTRDOS" 

7878 

r-«»”"»{.•' cr 
?- y r\ l_ 

1 o 4 0 4, u u D E L $ 113 

7880 

P 0 K E 

164.05,CODE L$ (2) 

7885 

TC r-i — 

X 1 li— 

1 THEN GOTO 8888 

7898 

i *í ! íT * i 

2888 

8088 

CLS 


8882 

ít 

PRINT 

*' TÍTULOS e sub-ti 

0084 

■' PRINT 

“ 0UPNTPS TELPS?" 

O 0 8 O 

INPUT 

~r 

i 

8811 

IF T > 

5 THEN PRINT "PTEN 

NO 

[-IPX IMO 

5 TELPS ," 

3012 

t cr *r .* 

x; t \ 

1 OR T>5 THEN GO ! 0 

C* 0 1 

PRINT 

T* 

í 

8020 

FOR C 

= 1 TO T 

8830 

F w INT 

“QUPNTflS LINH.PS T 

h 41 ; 

*T* 

-■ / * * 

ELP?" 

O 0 O C« 

INPUT 

u 


I W I_I l l 

i H r* 
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804.0 IF W > 4- THEN PRINT "ATENCAO . 
NO MÁXIMO 4- LINHAS." 

8042 Ir U > 4 THEN GOTO 8088 

8043 PRINT U 
8050 FOR E=1 TO W 

.8050 PRINT "QUANTAS LETRAS TFpw 
A “;E;". LINHA?" 

8070 INPUT L 

8072 Ir L >8 THEN PRINT "ATENAAfi , 
NO MÁXIMO 8 LETRAS." 

8073 IP L>8 THEN GOTO 8070 
8075 PRINT L 

8150 PRINT "ENTRE’ COM A ",E;". L 
INHA " 

8170 INPUT A $ 

8175 IF LEN H$ ■: > L THEN PRINT "AT 
ENCAD., UOCE. ESCOLHEU ";L;" LETRA 

‘mm 1 » 

8177 IP LEN A$OL THEN GOTO 8170 

8178 CLS 
8180 PAST 

8190 IP E>1 THEN GOSUB 8600 
8200 POR'F =0 TO L 


3210 

LET 

I=960 + í 

3220 

FOR 

G =0 T0 

8230 

LET 

X =PEEK 

3240 

FOR 

H=0 TO 

8250 

LET 

Z = INT 

8250 

IF Z 

<>INT ; 

+ C3-L 

) * 4.. 

49-INT 


54/ÍU+2) ) *(E-l)-G 

8270 NEXT H 

8280 NEXT G 

8290 LET A$ = A$(2 TO 5 

8300 IP LEN A$=0 THEN GOTO 8811 

8310 NEXT P 

8311 SLOLl 

8 3 15 G O S U B 910 8 
8318 IP EOIJ THEN CLS 
8320 NEXT E 

8322 PRINT AT 19,0;"A TEL 

A ESTA BOA ASSIM?" 

852S- PRINT "3" NO CASO AFIRMA 

TIUO" 

8324 PRINT gE OUIZER sffa 

ZER A TELA" " . 

8325 Ir INKEY$="S" THEN GOTn 
0 ' 

8327 IP INKEY$="N" THEN GOTO 840 
O 

oody uuTu i*^i i *i f- 1 e 
o U 0 U L o 
S331 NEXT C 
C'.o o 5 o L U i-j 
8336 LET M = 2 
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8340 
*'DEPC 
RR fiC 
8350 

CT CT 

o ♦ w» 5 
8360 
c* 4 0 0 
8410 

8500 

8501 
8505 
8510 
8540 
8550 


0 

3561 

3562 
3565 
8570 
3580 
3680 
8610 

3620 
8630 
3930 
9100 
3110 
3120 
3140 
y y »“»0 
3981 
9932 


Q Q 0 0 


PRINT “UEÜH COMO FICOU , '* , } . 
315 lNTRE ,,,, M , "‘. PfiRfí' RETHRN 
J MENU* 1 
GOSUB 5000 
GOSUB 5000 
GOTO 5000 
.CLS 

GOTO 3030 
CLS 

IF M=1 THEN GOTO 2000 
FOR Cal TO T 
GOSUB 8500 
G O S U B 6* 0 0 0 
NEXT C 

IF INKEY$ = “ M " ThEH GOTO 200 

GOTO 8560 
üLb 

GOTO 2000 
STOP 

GOTO 5000 
POKE 16507 j 128 
POKE 16503 ; 94+3*C 
RR ND Uü‘R 11» 5 i=! 7 
RET\ JRN 
STOP 

POKE 16507,123 

POKE 16508 j 34+3*0 

RR ND USR 16514 

PETi JPN 

PLOT X/Y 

NEXT Y 

RETURN 

PLOT X/Y 

NEXT X 

RETURN 


Parte III: Uma vez completa a introdução, armazene o programa 
em fita entrando SAVE "0 APRESENTADOR" e "NEW UNE". 

(não entre GOTO 7060). 

Uma vez armazenado todo o programa guarde bem a fita e vá des¬ 
cansar, afinal amanhã é um outro dia e o mundo não foi criado num dia só. 


Criação dos títulos 

Suponhamos agora que o seu apelido familiar seja DINDO e que 
você seja um tio legal que se propõe a gravar em vídeo o 8? aniversário do 
seu sobrinho Marcelo. Proceda da seguinte forma: 

1) Carregue o APRESENTADOR no computador e entre "GOTO 2000" e 
NEW UNE. 
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Aparecerá o MENU abaixo: 

0 RPRESENTfiD 




' • :, 5RUir*' h fiPRtSENTflCflO SEM 
OS TÍTULOS 


Escolha a opção 1. 

2. O computador pedirá a você para criar a abertura com 2 linhas cada 
uma, com até 8 letras por linha. No nosso exemplo a 1? linha será "DINDO" 
com 5 letras. Informe isso ao TK, ele então entrará no modo "FAST" e a 
imagem desaparecerá por alguns segundos. 

A? ssr perguntado, informe que a segunda linha terá quatro letras — 
"NEWS". Ao completar a abertura o computador lhe mostrará como 
ficou. Se você não gostou digite "N" e repita a abertura. Se gostou digite 
"S", e o programa voltará ao Menu. Quando você for utilizar a apresen¬ 
tação, esta abertura ficará assim: 



3. Neste ponto, se escolher a opção 5, você poderá armazenar a aber¬ 
tura para usar em outras ocasiões. 

Ao carregar o programa ele irá automaticamente na opção 2 na 
qual você irá criar os títulos. 

4. Ao invés de salvar o programa você poderá escolher diretamente a 
opção 2 e criar os títulos que comporão a apresentação completa. 
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5. Informe ao computador quando ele lhe perguntar quantas telas terá o 
título completo (no máximo 5 telas). No nosso exemplo são duas telas: 



6. O computador perguntará então quantas linhas terá a primeira tela (no 
máximo 4). Informe isso ao computador. 

7. Agora informe que a primeira linha terá 7 letras (MARCELO). 

8. O computa dor, então, entrará no modo FAST e ampliará esta primeira 
linha. 

9. Prossiga com as outras três linhas: 

2 a linha — 3 letras — FAZ 

3! linha — 1 letra — 8 
4! linha — 4 letras — ANOS 
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10. No fim o computador lhe apresentará a tela para julgamento. 

11. Entre "N" se quiser refazê-la. 

12. Entre "S" se estiver OK. 

13. Crie então a segunda tela: 

1? linha da 2 a . tela — 1 letra — E 
29 linha da 2! tela — 7 letras — CONVIDA 
3? linha da 2! tela — 4 letras — TODA 
4! linha da 2? telà - 6 letras - PATOTA 

14. Julgue a tela depois de concluída. 

15. Se você entrar "S" a apresentação toda estará concluída e você po¬ 
derá admirá-la. 

16. Entre "M" (MENU) depois de concluída a apresentação e retorne ao 
MENU. 

17. Neste ponto escolha a opção 5. “Salve" no gravador toda a apresen¬ 
tação. 

18. Se em algum momento da criação da apresentação o programa se in¬ 
terromper, entre GOTO 2000 e escolha a opção 1 ou 2. 

Criação do final 

O Programa "O APRESENTADOR II" listado a seguir é de utilização 
mais simples. Vamos ver como utilizá-lo para criar um final assim: 




quando formos gravar o final da obra depois da festa de aniversário do 
Marcelo. 

1 REM O PPRESENTPDOR II 

SC) -B.Ç.STEIM 
OUT 1933 

10 PRINT PT 6,13;“FIMHL" _ 

20 PRINT PT 9,4; "ENTRE COM P r 
RPSE F-INfiL “ 

30 PRINT PT 11,2; "(E COM P DPT 
H, XX/XX/XXXX ) ■' 

4.0 INPUT B $ 

50 CL5 

80 PRINT PT 6,0; "PPRP UER O FI 
NPL, ENTRE COM *' "F. 




7i?« 

1 V 

Ir INKEY $ = ” f 

80 

GOTO 70. 

100 

ÜLS 

101 

POR N=0 TO < 

102 

NEXT N 

184 

GOSUB 3000 

105 

H L UT 10/ 3 d* 

110 

L3T X =9 

120 

FOR Y =32 TO 

.n .n 

1 w 1 ‘■CJ 

GOSUB 1000 

140 

PLOT 8 j 27 

145 

GOSUB 3000 

•T i “"“ 

JL w t* 

PLOT 10/27 

11? U 

LET X=14 

'1 

-Ju. I w 

POR Y =29 TO 

.1 .«% 

X O 

G 0 5 Ü B 10 0 0 

.1 r—— 

1CÕ 

GOSUB 3080 

190 

Rí nT 1 Fi v4_ 


GOSUB 30-00 


PLOT 14/31 

C V w 

GOSUB 3000 

21© 

PLOT 19,29 

km km 

LET X=20 

230 

FOR Y =29 TO 

240 

G 0SUB 1000 

d<4-c: 

GOSUB 3000 

j r— 

d w- 

PLOT 21,27 

d’«+* t 

GOSUB 3000 

0 

PLOT 22,28 

•T 

G 0SUB 3000 

III 

PLOT 23,29 

4 t?-U 

LET X =24 

. ~t .n 

FOR Y =29. TO 

d* !*> 
d w li’ 

GOSUB 1000 

233 

GOSUB 3000- 

290 

PLOT 25,27 

295 

GOSUB 3000 

300 

PLOT 2*6,28 

305 

GOSUB 3000 

310 

PLOT 27,29 

320 

LET X =28 

338 

FOR Y=29 TO 


GOSUB 1000 

350 

FOR X =12 Tu 

3 o 0 

j =ry Y - P 1 

370 

PLOT X,Y 


GOSUB 3000 

380 

NEXT X 

500 

GOTO 200-0 

993 

■Z- T 0 P 

000 

PLOT X , Y 

.010 

NEXT Y 

020 

RET UR N 

Í000 

PRINT AT 15 
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20153 

1" 

HKINI H T 

16,18; 

"i 

in .n 

2 2 vi’- 

Bm 

s* 

PHINT P;T 

17,13; 


2025 

LET R$=6 

EC 


■2 i7l iTi 

W 4 w 

} PT pn — ** 

Li» itmm 1 1 r «tafc» ' ÍT 



—í7j ^ rA 

w w 1 w* 

FOR X =1 

TO LEH 

(RS3-9 

2050 

PRINT HT 

16,19; 

\X TO X*9) 

205,5 

O iTi "7 i7i 

i— W t 

G Ü S üb 30 
NEXT X 



*5 4*1, .-V 

d ± ks £*• 

~f #t .n 

w 

IrOR N -0 
NEXT N 

TO ISSO 

! I« m - 

■ %*■ 

3000 
3 010 
3020 
3030 

FOR N =© 
NEXT N 
RETUPKl 

**n t í i 

W 1 W i 

T O 4 


4000 

j’ «t 

.*» i.*i í jy» 

"*1® «A» 

SfiUE “0 

.'n f i 

4—* : ;i*.t 

J w* I ~ 

H P Riz 5 ii NT H D Ü fs X J- 


Gravação da apresentação em vídeo-cassete 


Chegou o grande dia. É hoje a festa do Marcelo. Acorde cedo, faça 
sua ginástica para se sentir disposto. Depois monte o seu vídeo-cassete e o 
seu computador conforme o esquema abaixo: 



Interligue a saída do computador à entrada da antena do vídeo-cas¬ 
sete. Se o seu vídeo-cassete não tiver recurso de-"AUDIO DUBBING" (que 
permite a gravação de trilha musical em separado), você deverá ligar uma 
fonte de som (microfone, gravador, toca-disco etc.) diretamente na entra¬ 
da AUDIO IN. Carregue o programa "O APRESENTADOR" no computa¬ 
dor e coloque uma fita (ou disco) na fonte do som. Coloque uma fita de 
vídeo nova no aparelho de vídeo-cassete. ATENÇÃO: Ligue o vídeo-casse¬ 
te, sintonize o canal correspondente ap canal em que você opera o seu 
computador. REGULE a sintonia fina deste canal, já que normalmente ela 
não vem regulada da fábrica. 


Faça isso até obter uma imagem nítida do computador na tela da 
TV ligada ao vídeo-cassete. Você poderá então, ir em frente. Coloque o 
vídeo-cassete em REC-PLAY e PAUSE; prepare a fonte de som, e deixe o 
computador no MENU. Já que você não tem 3 mãos, peça a ajuda de al¬ 
guém para soltar o PAUSE do vídeo, escolher a opção 3 do MENU e libe¬ 
rar a fonte de som. Se você escolher a opção 4, terá títulos sem a apre¬ 
sentação inicial. 

Interrompa a gravação do som quando a apresentação estiver gra¬ 
vada (se o seu vídeo-cassete tiver o recurso "AUDIO DUB" você poderá 
gravar só a imagem da apresentação, e gravar o som posteriorrnente,com 
mais calma). 

Após ter gravado os títulos, retorne a fita dej vídeo ào início e veja se 
a obra ficou boa. Você sempre poderá repetir tudo se não tiver gostado. 

Uma vez satisfeito, tire a fita e carregue-a (não preciso dizer que 
você deve começar a gravar a fita após o ponto onde o título foi gravado, 

para não gravar sôbre ele e perdê-lo). 

Vamos à festa que a família já está esperando. Leve seu filho como 

iluminador e mãos à obra. 

Não coma muitos doces que você está a serviço e, além disso, fa¬ 
zendo regime. TRABALHE. 

Após a festa volte para casa e prepare o encerramento do trabalho. 
Carregue no computador, que você deixou conectado ao vídeo-cassete, o 
programa "O APRESENTADOR li". 

Ao ser carregado, o programa perguntará qual a frase que você 
quer que apareça como final. Escolha algo como "FILME REALIZADO 
PELO TITIO EM SUA HOMENAGEM EM 14/10/1983" e "NEW LINE" (pro¬ 
cure entrar no fim da frase com a data, usando sempre 10 dígitos. Por 
exemplo: 03/02/1984, você logo verá o porquê). 

Agora entre "F" e você poderá ver como ficará o final na fita (veja 
que a data com 10 dígitos ficará centralizada no quadro). 

Após ver o final entre "BREAK", "GOTO 60" e "NEW LINE . 

Agora ponha seu vídeo em REC/PLAY e PAUSE, prepare a música e 
deixe-a tocando antes do ponto desejado. Ao chegar no ponto desejado 
libere a tecla "PAUSE" do vídeo ao mesmo tempo que você entra "F" no 
computador. O resto eles farão sozinhos. Deixe o final ser gravado pelo 
menos uns 15 segundos após ter sido completado. 

Muito bem, volte à casa do Marcelo e mostre a sua obra a todos. 
Você será nomeado o "Dias Gomes" da família. 

O Apresentador III 

A instrução "SCROLL" de seu computador pode ser usada para ge¬ 
rar subtítulos deslizantes e assim completar esta "trilogia" de programas 
para aficcionados em Vídeo-Cassete. 

Decida quantas linhas terá o subtítulo que deverá percorrer a tela de 
baixo para cima. O exemplo do programa abaixo tem 6 linhas. 
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0 valor de "X" da linha 9800 deve ser escolhido conforme a fórmu¬ 
la -+ X = 9 —(número de linhas do título} 

Se o número de linhas de títulos for igual ou superior a 8 o valor de 
"X" será sempre igual a 1. 

Se você quiser alterar a velocidade de apresentação dos títulos 
altere o valor "20" na linha 9910 do programa. 

1 REM O APRESENTADOR III 

íCl-B.C.STEIN 
JUL 1934- 

10 LET A$="1. TITULO" 

20LET B$=“2. TITULO" 

21 LET C$="3. TITULO" 

22 LET D$ = "4, TITULO" 

23 LET E$=“5. TITULO" 

24 LET F$="6. TITULO" 

30 GOSUB 9900 


4-0 

PRINT 

PT 21 y 

í 32-LEN 

A$1 /2;A 

$ 




50 

GOSUB 

9908 



50 

$ 

70 

PRINT 

HT cl 1 , 

C32-LEN 

B$) /2; B 

G 0 S ü B 

9988 



80 

$ 

90 

PRINT 

HT ci; 

( 32-LEN 

C$; /2; C 

t?Ow*üS 

PRINT 

9988 
hT h 1 t 

(32-LEN 

D $) /2;D 

180 

$ 

110 

GOSUB 

9988 



128 

$ 

130 

PRINT 

PT 21, 

(3 2 - L E N 

E$) /2; E 

GOSUB 

9988 



14.0 

PRINT 

PT 21, 

(32-LEN 

F $)/2;F 


$ 

1 & 0 u u s U B y y 0 8 
9800 j^OR N = 1 TO X 
9810 GOSUB 9910 
9830 NEXT N 
9840 FOR T =0 TO 1080 
9850 NEXT T 
yy08 suRuLi. 

9910 FOR T =0 TO 28 
9920 NEXT T 
9938 SCROLL 
9948 RETURN 

Agora entre com o programa. Defina cada uma das linhas do subtí¬ 
tulo. Cada linha deve ter no máximo 32 caracteres. É claro que o programa 
terá tantos pares de linhas, 


GOSUB 9988 
PRINT AT 21.. Í32-LEN 
quantas forem as linhas de títulos. 


X$) 


/2; x$ 
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0 USO DA IMPRESSORA 


Alguns dos programas apresentados neste livro prevêem opcional¬ 
mente o uso de uma impressora. O leitor poderá verificar que nos progra¬ 
mas "O PROFESSOR" (Capítulo II), "O ARQUIVISTA" (Capítulo VI) e 
"0 POETA" (Capítulo VII) esta prevista a sua utilização. 

Os mencionados programas funcionam perfeitamente sem a im¬ 
pressora, mas tornam-se mais interessantes e úteis se ela puder ser usada.' 

Os dois programas deste capítulo foram criados especialmente para 
serem usados com a impressora. 

Atualmente existem a venda no mercado internacional, dois tipos de 
impressoras: 

a) Uma impressora de origem inglesa semelhante a que era comer¬ 
cializada pela "Microdigital". 

b) Uma impressora fabricada nos Estados Unidos: a TIMEX 2040. 

O Impressor e O Impressor II 

O autor tinha constantemente problemas de organização de sua 
coleção de programas armazenados em fitas cassete. 

Os filhos do autor tinham bs mesmos problemas com suas fitas de 
músicas gravadas de discos ou do rádio. 

Para resolver estes problemas foi escrito o programa "O IMPRES¬ 
SOR" que permite criar rótulos para fitas cassete. 

Como a formatação das duas impressoras existentes à venda é dife¬ 
rente, foram criadas duas versões do programa: 

-"0 IMPRESSOR": para os proprietários da Impressora de origem 
inglesa, a ZX PRINTER, ou de sua versão nacional, a TK PRINTER. 

-"O IMPRESSOR II": para aqueles que possuem a impressora Tl- 
MEX2040. 

As instruções que são dadas adiante servem para ambas as versões 
do programa: 

1) Entre com um dos dois programas no seu computador. 

2) Depois entre "GOTO 3000" para armazená-lo em fita. 

3) Quando você for "carregar" o programa para utilizá-lo, não esqueça de 
ligar a impressora ao computador. 

4) Ao "carregar" o programa ele lhe perguntará o número da fita. Se você 
for organizar a sua fitoteca, sugiro que numere as fitas em ordem seqüen- 
cial: 1 para a primeira, 2 para a segunda, e assim por diante. 

5) O nome da fita poderá ter no máximo três linhas. 

Informe ao computador quantas linhas você quer (no nosso exemplo serão 
.3 linhas). 

6) Entre então com a primeira linha, com no máximo 5 letras ("Fita" — no 
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nosso 


71 A imagem desaparecerá por alguns segundos enquanto o seu compu- 


8 Em» então com a segunda linha . ("De") e depois com a terceira linha 

rjogof). 

9) A o terminar de formar a última linha a impressora imprimirá, automati¬ 
camente, em duas etapas, o rótulo para a sua fita. 

18 Destaque o rotulo da impressora. Corte-o nas duas linhas Interrompi¬ 
das e dobre-o na direção das duas linhas pontilhadas. 

Adiante seguem as duas listagens e as respectivas amostras de 
como ficarão os rótulos em cada uma das duas versões. 

Listagem para a impressora ZX-PR1NTER ou TK PRINTER. 


1 RQH 0 IMPRESSOR 

IC I B.C.STEIN 
JRN 1934 

'*■ PkXHT " ©URL SERR 0 NUMERO 
PESTfl FXTR?” 

1© XMPUT FITR 

2© PRIHT RT ** SEU TITULO T 

ERR SüfiNTflS LIMHRS?" 

30 XMPUT L 

31 Ir L>3 THEN PRIHT ** RTENCflO 
* MO HflXIMÜ 3 LIMHRS" 

34- IF.L>3 -THEN GOTO 30 

4© sosye 90 © 

45 L ET P=5 
5© FOR X ~ 1 T u L 
55 Si. ou 


6© PüIHT PT ENTRE COM « 

LINHft M 

7 © mpur m 

72.LET 

75 LaiT P=LEN 

8® IF P>5 THEN PRINT M flTENCfiO 
, NO HRXXH0 5 LETRfiS" 

05 IF P>5 THEN O OTO 7® 

100 O0SUB 9©® 


II© FOR F=® TO P 
19®.L£T I=96® 4CD0E R$ 

13® FOR S=0 TO 7 
1-4® LET Y=PEEK t8*X+G) - 
15® FOR H=® TO 7 
16® LET Z=INT íYy2S* Í7-H) i/2 
17© IF Z-OINT Z THEN PLOT 10 + H + 
oüfrF 4* -&4 $ 3© —•ts ^ ÍX + ll 

180 NEXT H 
19® NEXT O 

2®© LET Í2 TO V 

21® IF LEN THEN GOTO 3©© 

22© NEXT F 


300 FOR N=1 TO LEN 8$ 

320 PRINT PT N+fl.7;B$(N) 

340 NEXT N 

350 LET Rssfl+LEN B$ + l 
400 NEXT X 
5Õ0 GOTO 1000 

899 STOP 

900 PRINT RT,©,©;*‘ 

i v 

910 PRINT PT 1,0; M 

11 

920 RETURN 
1020 LET R=2i 
1030 LET £*—41 
104-0 LET C=0 
1050 LET D»1 

1055 PRINT PT 0,0.;“- 

d 


1068 FOR N=D TO fl 
1870 PRINT fiT N,5.;"i" 
1030 PRINT RT N9; "1 " 
1835 PRINT RT N,1Q;"1" 
1890 PRINT RT N, 31; " I" 
1108 NEXT N 
1118 FOR N = 12 TO 63 
1120 PLOT N,B 
1125 UNPLOT 19,3 
1130 NEXT N 

1140 IF C THEN GOTO 1508 

1150 LET C=1 

1160 COPY 

1162 CL5 

1165 6 OS UB 2808 

1178 LET fi=13 

1130 LET B=1S 

1190 LET 0=0 

1200 GOTO 1060 

1500 PRINT TfiB O;- 


1510 FOR N = 14 TO 17 . 

1515 PRINT RT N,5.;":“ 

1528 PRINT RT N.. 9" : ” 

1530 NEXT N 

1535 PRINT RT 13 .. 4; "DOBRAS" 

1537 PRINT RT 15 .. 26; "CORTES" 

1558 COPY 
1555 SLÜÜ 

1560 STOP 

2882 LET P$=" * FITR" 

2004 FOR N=1 TO 7 
2006 PRINT RT N,7;P$(N) 

2803 NEXT N 

2809 PRINT RT 9,7;"N." 

2810 IF FITR<18 THEN PRINT RT 18 
,6 ;"©O";FITR 
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2020 IF FITP>=10 PND FITA<100 TH 
EN PRINT PT 10,6; ,, 0“ ; FITP 
2030 IF FITP>=100 THEN PRINT PT 
10,6;FITP 

2040 PRINT PT 10,13;“PARA COMPUT 
PDORES" 

2050 PRINT PT 11.15;"PESSOAIS CO 
M" 

2060 PRINT PT 12,14; "LÓGICA - SINO 
LPIR" 

2100 RETURN 

3000 SPUE “O IMPRESSOS” 

3010 RUN 


O seu rótulo, nesta versão, ficará assim: 



CORTES 


DOBRAS 


Listagem para a impressora TIMEX 2040 • 

1 . w a h U x )*1 P R 4 ’Zf o U R 

PAPA TIMEX 2040 
'C'* B.C.STEIN 

|j [i '1 Q ■< 

5 PRINT " QURl~SERA~Õ NUMERO 
DESTP FITA?" 

10 INPUT FITP 

29 PRINT PT 0,0; 1 * SEU TITULO T 
ERP QUANTAS LINHAS?" 

30 INPUT L 

31 IF L >3 ! HiiN PRINT M AiizNCAO 

Nõ MÁXIMO 3 LlNHPS" 

34 IF L > 3 THEN GOTO 30 
4.0 005 UB 900 
4p Lr í h =4 
50 FOR X = 1 TO l 

w- •— t i |~j j | 

60 PRINT PT 0,0j“ ENTRE'COM P 
*' ;x;“. LINHP M 
70 INPUT H$ 

72 LET B4=flf 


7 {= 

LET P=LEN H5 

50 

IF P > 5 THEN 

NO 

MR A. IM' j 5. Lci 

O w 

IF P > 5 THEN 

100 

G 0 5 U ts 9 0 0 

105 

FflS“ 

110 

FOR F =0 TO P 

120 

LET I= 9 5 0 r00 


130 FOR 0=0 TO 7 

140 LET Y=PEEK (8*I+G) 

150 FOR H =0 TO 7 , 

160 LET Z = INT (Y/S**(7-H)>/2 
170 Ir 2<>INi Z THEN PLOT 7 + H.+8 
*F+ <6-P) *4/3S- G -8£ CX + i) 
í80 NEXT H 
190 NEXT G 

200 LET R$ = H5 (2 TÜ ) 

210 IF LEN PS =0 THEN GOTO 300 
220 NEXT F 


3 u u 

FOR N = 1 TO LEN BS 

o ^ 

PRINT PT 

N 4 P, 3; B 5 

340 

NEXT N 


350 

LET i-i=Pi + L 

E N B 5 +1 

4 <w w 

NEXT X 


ET F>. ~- 
_* YL’ HL' 

GOTO 1000 


o y y 

ST OP 


900 

PRINT PT 

0,0;" 

» » 

910 

PRINT PT 

1,0; “ 

♦ * 

920 

RETURN 


,020 

LET A=21 


,030 

i cr t~ w — .í *i 

i_ i—. ! !_• — -L 
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1040 LET Ü=0 
1050 LET D = 1 
1055 PRINT RT 0,0;*’ 


1050 

FOR N 

— U I !J 

ij 

1078 

PRINT 

RT N 

•1 » *• 

j ± / 

1838 

PRINT 

RT N 

c* - »* 
; •-=, 

1035 

PRINT 

RT N 

1 r • »• 

/P > • 

1898 

PRINT 

R 1 N 

, 31 ; 

1180 

NEX7 

N 


1110 

FOR N 

<_» O "T o 
— Cl 5 'J 

P O 

1128 

PLOT 

N, 5 


1125 

U N F L. U 

T 12 > 

B 

1130 

NEXT 

N 


1148 

IF C 

T* LJ " K 5 
! i! L- 1 *■! 

GOT 0 

1158 

LpT c 

= 1 


11 RR 

G O 5 ü B 

■“1 «■* .4 

C. M- *.• 


1150 

COPY 



1162 

w 



11 6 P 

GO 5 UB 

2888 


1178 

íb- l_ 1 m 

= 18 


1150 

L. hT C» 

_ 0 0 


1198 

LET D 

=8 


1208 

GOT n 

1050 


1580 

PRINT 

TRB 

• •« 

ü, - 

11 

1518 

FOR N 

= 11 1 ! 

J 17 


1515 PPJNT RT N j l; ** ; •• 

1520 PRINT R7 N,6;" 

1530 NEX7 N 

1 P 3 5 PRIN7 RT 15,1 ; *' D ü 8R R 5 " 

1537 PRINT RT 12,26;"CORTES" 

1 p 5 8 COPY 
1P P 5 S L O U 
1550 57 O P 

2009 PRIN7 R7 7 , 3; **N . M 

2010 IF FI7AÜ0 THEN PRINT hT Fí , 
2;" 88";FI7R 

2020 IF rI7R>=I8 RND F17 Pi <108 TH 
EN PRINT R7 3 4 2;"8 M ;FITP 
2838 IF FI7R > =180 THEN PRINT R7 
8,2;rI7R 
2035 RpTURN 

2340 PRINT Hl 2,11;“DRRp COMPUTA 
DORES" 

2058 PRINT RT 3,13;"PESSOAIS COM 

ii **. 

2850 PRINT RT 4,15;"LÓGICA TK" 
2108 RETURN 
P800 RhND ÜPR 'o'40p 
3810 RUN 


O seu rótulo nesta versão ficará assim: 
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75 











ITULO 


t t 


i i 
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USO DAS FUNÇÕES 
ESPECIAIS DO TK-85 


Este capítulo foi escrito especialmente para os proprietários do com¬ 
putador TK-85 que têm ao seu dispor uma série de funções exclusivas: 

1) 0 uso do High-Speed, que permite armazenar e carregar programas 14 
vezes mais rápido que a velocidade dos outros computadores pessoais da 
mesma linha. 

2) A possibilidade de armazenar e carregar dados, separadamente dos 
programas. 

O programa "O ARQUIVISTA" foi criado especialmente para utili¬ 
zar estas características exclusivas do TK-85. "0 ARQUIVISTA" permite 
criar arquivos para as mais diversas finalidades e armazenar os dados destes 
arquivos em fita, em "high-speed". 

Para que o leitor tenha o máximo benefício de "0 ARQUIVISTA", 
sugiro que siga rigorosamente as instruções abaixo: 

EQUIPAMENTO NECESSÁRIO: computador TK-85, um bom gravador 
"Mono" com uma alta relação sinal ruído, uma fita tipo "Low-Noise" para 
o programa e uma fita tipo "Low-Noise" para cada arquivo diferente que o 
leitor pretende criar. 

EQUIPAMENTO OPCIONAL (e muito útil): Uma impressora TK PRINTER 
ou TIMEX2040. 

Sugiro também ao leitor, que antes de seguir adiante, ele leia o 
capítulo 29 do Manual do TK-85 e que procure estudar o programa publi¬ 
cado no N? 5, página 26 da revista MICROHOBBY. 

Entre agora com o programa "O ARQUIVISTA" 


2 SLOW 

4 LET T =(32-LEN T$) /£ 

5 PRINT , , ,,TRB TTT$ 

7 FOR R=T TO TtLEN ?S-i 
10 PRINT m 3,-r; 

12 NEXT R - 

20 PRINT RT 9,5;"UOCE DESEJA:" 
30 PRINT RT 12,2;"1. CRIAR E G 
RRURR FICHR FISICR" 

60 PRINT RT 15,2;"2. PESQUISAR 
FICHR LÓGICA" 

80 IF INKE'v'$ = " 1" THEN GOTO 100 

w 

100 IP INKEY$ = "2 ” THE 1-4 GOTO 400 

0 

110 G OT 0 5 0 
120 CLS 

130 PRINT , , , > " E5C0LHR 0 NOHE 
Dü HR0ÜIUOs" 
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160 PRINT , ESCÜLHP O NOME 

t O NUMERO MAX, DE DÍGITOS, DOS 
TRES GRUPOS DE DADOS." 

155 PRINT ESCOLHR, DEPOIS 

O N U M E R O D t FIC H fl S L O GIC fi S 

OUE TERP ChDh FICHfi FÍSICA.” 

157 PRINT , , , , " FINfiLMENTE, RRM 
hzene em FITP 0 RROUIUO, prrr u 
50 POSTERIOR." 

170 PRINT RT 19,6; "ENTRE NEW LI 

NE , " 

175 PAUSE 4E4 
180 CLS - 

185 PRINT "ENTRE COM 0 NÇME DO 
RROUIUO," 

190 INPUT T $ 

200 CLS 

205 PRINT "ENTRE COM 0 TITULO D 
0 1. GRUPO DE D RD OS." 

210 INPUT R$ 

220 CLS 

230 PRINT “OURNTOS DÍGITOS TtRR 
" j. R $; ” , NO MRXIM0?'' 

24-0 INPUT 8$ 

241' IF S$ = "" ! HEN GO i 0 240 

242 GOSUB 9700 

243 IF NOT 0K !HEN GOTO 240 

244 LET fi=UAL 5$ 

A CT i 

250 PRINT •’ENTRE COM 0 TITULO D 
j 2 * GRUhO Diz DPDOS« 

250 INPUT 5s 

*“* 1 Fi 5 [~" ^ , 

270 PRINT "QUANTOS DIGIT05 TERP 
NO -MÁXIMO?" 

250 IHPUT 5$ 

281 Ir S$ = "" THlN GOTO 280 

V ü» 2 L? U O Ü D 2 ;■ vl 1 0 

283 IP NOT ÜK THEN GOTO 280 
28 4- L ET B = U AL S $ 

285 C L S 

220 PRlt-PT "ENTRE COM 0 TITULO D 
0 3. GRUhO DE DADOS , " 

300 INPUT C$ 

305 CL5 

310 PRINT “OURNTOS DÍGITOS TERP 
;J , 0 $ , " , NO MRX IMO? “ 

320 INPU! 5$. 

321 IP S$ = ;,: ’ THEN GOTO 320 
3 22 60S U B 9 70 O 

32 3 IP N 0T 0 K THEN G0T0 32 O 
324 LET C=URL 5$ 

330 CLS 
342 LtT X=Htu 
344 LET Y=X+C 
3 4 b C L 5 
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350 PRINT "OURNTRS FICHAS LOGIC 
RS TERfi CRDRFICHP FISICfl?" 

355 INPUT 5$ 

356 IF 5$ = -”' THEN GOTO 355 

357 GOSUB 970O 

358 IF NOT ÜK THEN GOTO 355 

359 LET D=URL 5$ 

350 CLS 

365 PRINT "CONFIRA OS DfiDfiS ■ " 

B° RROUIUO: " , 

370 PRINT , , , Jflg' 4; "TÍTULOS" , " 
N. DE DÍGITOS" 

T~ M B 4 , 


cr * * •» cr .**• *» 


390 PRINT , ,"1. " ; fi$; TRB 21;R 

400 PRINT "2, B$; TRB 21; B 

410 PRINT "3. ";0$;TRB 21; C 

420 PRINT RT 14,0;D;" FICHAS LO 
GICRS/FICHfi FISICR." 

430 PRINT RT 17,2;"OS D RD OS EST 
RO CERTOS?(S/N)" 

440 INPUT 1$ 

450 IF I$ = **N" THEN GOTO 180 
500 CLS 

Sl0 PRINT Ri 5,0;“ AGORfi GRRU 
E ESTE RROUIUO NO INICIO D 

E UMR FITP NOUR, PRRR 

posterior armazenam 

ENTO Dfc DRDOS.“ 

520 PRINT RT 12,3;“ENTRE ""REC" 
" NO GRAUADOR-, E " ”N 

EU LINE”"." 

550 PRUSE 4c4 
562 LET IMICIO =1 
555 CLS 
57© GOTO 9810 
1005 CLS 

.1010 DIM E$(D*Y) 

1020 DIM N$ífl) 

1025 DIM MS (Bi 
1030 DIM OS ( C' 

1040 LET 0=1 
1050 FOR 1=1 1 0 D 
1050 SCROLL 
1065 PRINT A$; "='• 

1057 uRuL L. 

1070 INPUT MS 
1075 PRINT H$ 

1080 SCROLL 
1085 PRINT B$;"=" 

1057 5 L- PU L L 
1090 INPUT MS 
1095 PRINT MS 
1100 8CROLE 

1110 PRINT cs; “ = " 
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1115 SCROLL 
1120 INPUT 0$ 

1130 PRINT 0$ 

1140 SCROLL 
1150 PRINT 

1150 LET F $ =N $ + M $.+Q $ 

I<c 1170 LET E$(Q TO O+LtN r$-l> 

- lr use LET ©S0 + LEN F$ 

r ' €í/ 1190 NEXT I 


Ti- D-f;, 


1200 SCROLL _ 

1210 PRINT -'FICHA FISICP COHPLE t 

A" 

1213 SCROLL 

1£14 PRINT "P/GRAUAR DIGIT8 <NiU 

LINE > " 

1220 IF INKEY$="” THtN GOTO 1220 
2000 LET F=F+1 
2002 LET INIC10=1 
2005 CLS 

200F PRINT "P/GRAVAR APERTE REuO 
RD DO GRAUA-DOR E NEU LIME" 

2007 IF INKEY$=2” THEN GOTO 2007 
2010 LET Z=LENE$ 

2020 LET Zí="E" 

2030 LET BC =USR 9008 
2040 SLOLi _ _ 

2050 IF BC =0 THEN PRINT AT 7,3; 
OK ^ 

206© IF 8CO0 THEN PRINT AT 7,3; 
“ERRA = “'BC 

2070"PRINT ’‘ NOUA GRAUACAO < S/N)? 


; *-‘ / 


2080 IF INKEY$="S" THEN GOTO 100 

2085 IF INKEY$=“N” THEN GOTO 1 
2090 GOTO 2080 
4005 CLS 

4010 PRINT AT 6,3;"UOCE DESEJA P 
ESOUISAR ?" . 

■4015' PRINT AT 7,3; “RELACAu ÜCJ. 
4020 PRINT AT 10,0; “l. " , \S M 

4030 PRINT AT 12,0; “2. ";B$; ,, S" 

4040 PRINT AT 14,0;"3. C$!"S" 

4050 IF INKEY $ = " 1" THEN GOTO 480 
0 

4060 IF INKEY$ = "2“ THEN GOTO 800 

0 _ 

4.070 IF INKEY $ =”3" THEN GOTü 800 

0 

4080 GOTO 4050 
4500 GO SUB '9765 
4505 CLS 

4510 PRINT "QUAL E* 0 ";A$;”7" 
4520 INPUT L $ 

4530 PRINT L$ 

4540 GOSUE 9000 
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4545 FOR S = 1 TO F 
4550 LET Z=Q 
4560 DIM E$(D*Y) 

4570 LET Z$=“E" 

4580 LET BC=USR 9189 


4620 

IF 5C < >0 THtN GOTO 46ô 

0 

4t» o 0 

FOR 1=1 TO D*Y STEP-Y 


4640 

IF E$ CI TO I+LEM L$-l) 

=Ls 

HEN_ 

RnsUB 3000 


45 4 ír« 

NEXT I ’ 


4647 

NEXT S 


41 1 4 íz* 

GOTO 3400 


4650 

3L0U 


w ^ cr 
u. d 1 ^ 

PRINT "ERRO = ,# ;BC 


4660 

PRINT 


4570 

PRINT “ENTRE , “ , STOP ,, ‘* 

NO G 

RU PD 

0 R , " 


4630 

PRINT “ENTRE N/L■PfiRfi 

N 0 U H 

PESOU ISft. 11 


46 3 5 

IF INKEY$ = "■'• THEN GOTO 

46 3 

4690 

GOTO 4000 


5000 

G 0 S U B 976w* 



8005 L 8 

5010 PRINT ‘'QUAL E* 0 ’ , ;B$; , ‘?“ 
5020 INPUT L$ 

5030 PRINT L $ 

8040 G0 S U8 9000 
5045 FOR S = 1 TO F 
5050 LET Z=Q 
5060 DIM E$CD*Y) 

5078 LET Z$ = "E.“ 

5080 LET BC =U.SR 9189 

5100 lí* BC<>0 THEN GOTO 4680 

5120 FOR 1 = 1 TO D*Y. STEP Y 

5130- IF E$.( I+A TO 1+A+LEN L$-l) = 

L $ THEN GOSUB 3000 

5140 NEXT. I 

5300 NEXT S 

8400 GOTO 34 


5645 PRINT 

5650 PRINT "UOCE DESEJA FAZEP NO 
UA PESQUISA?" 

5655 PRINT TAB 25; " CS/N.i " 

5660 IF INKEY,$ = "S“ THEN GOTO 400 

jy . ... • •• • ... ' ... , • 

56Õ5 IF INKEY$="N° THEN GOTO 1 
5670 GOTO 5560 
5000 GOSUB 9765 
6005 CLS 

5010 PRINT “ QUhL E a 0 
5030 INPUT L$ 

5040 PRINT L$ 

5050 GOSUB 9000 
6055 FOR 5=1 TO F 
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o *7 cr cr «-• i r 
w * D u* i— 

8750 PRINT 11 NO UH PESQUTòH (F/N) 
8770 IF INK£Y$ = "5“ THEN GOTO $09 
0 

8780 IF INKEY $ = '* N '* THEN GOTO 10 
8790 GOTm #770 
3000 PRINT 

9010 PRINT '* REBOBINE R FTTRV'' 
9050 PRINT "ENTRE NEW LINE E" 
9030 PRINT "COLOQUE 0 GRRUhDOR E 
H ,, PLRY ,,M , ■* 

304.0 IF INKEY$ = •'THEN GOTO 904.0 
9050 r:LS 
9100 RETURW 

9600 CL5 

9601 PRINT 

9602 PRINT 

9603 PRINT 

9605 PRINT “NRÜ FOI ENCONTRRDQ E 
5TE DRDO“ 

9610 PRINT 

9620 GOTO 564-0 

3700 LfcT OK ss0 

3710 FOR J = 1 TO LEN 5 $ 

9720 L u . 5$ (J'i =“ ** OR O 


R .5$ i J) > “3.‘\ THEN 
9740 NJzX ! ü 
3750 LET HK=i 
3760 RETURN 
3785 LET IHP=0 
3757 OLS . 

9770 PRINT “U. E 
ES5QRRCS/H)? u 


URN 


ESTA* USANDO IMPR 


3 r i çl 

LET N = 1 

3775 

INPÜT 1$ 

9780 

IF I$ = ‘ , S ,f THE 

9 7 85 

DIM P*(10040) 

9730 

U L c* 

3735 

r i cr*r j t r“s ».» 
r\I H t *■* 

9500 

LET INIC10=0 

Q O -t «*>. 

r> w JL *L : 

RHND USR 5405 

3 c. 

IF INICIO THÈi 

<~ o cr 
r u* r; •_= 

LET F =0 

r> u 1 t, 1 

GOTO 120 


U O T 0 


Após ter digitado todo o programa, armazene-o em fita (não esque¬ 
ça, utilize uma fita "Low Noise" eseu melhor gravador mono). 

Para "salvar" corretamente o programa entre "REC" no seu grava¬ 
dor e "GOTO 9800". 

Esta fita gravada passará a ser a fita mestre da qual você carregará o 
programa no TK-85 cada vez que for criar um novo arquivo. 

Para demonstrar ao leitor como utilizar o programa "O ARQUIVIS¬ 
TA" vamos criar, como exemplo, um Arquivo de datas de aniversários' de 
parentes e amigos e que contenham também uma série de informações 
destes parentes e amigos. 



0 programa permite que você armazene e depois obtenha as seguin¬ 
tes informações: 

1) Os membros que compõem uma determinada família. 

2) As preferências destes membros {afinal você deve comprar um presente 
adequado para cada gosto). 

3) A data dos seus aniversários. 

4) Entrando no computador com uma determinada data, você ficará sa¬ 
bendo quem faz anos nesta data. 

Proceda da seguinte forma: — carregue o programa da fita mestre para o 
seu TK-85 (em High-Speed — digitando RAND USR 8630). O programa ini¬ 
ciar-se-á automaticamente pedindo o nome geral do arquivo; batize-o, por 
exemplo: "Arquivo de Aniversários". 

Informe o nome do primeiro grupo de dados: "Nome de família"; 
agora informe o número máximo de dígitos que poderá ter o "nome de 
família" (digamos 10). 

O segundo grupo de dados será "Nome, nascimento e gosto" e terá, 
digamos, 30 dígitos (nunca mais que 32 dígitos). 

O terceiro grupo chamar-se-á "Data Natalícia" e terá 5 dígitos no 
máximo. 

Agora o programa irá perguntar quantas fichas lógicas terá cada 
ficha física. 

Como você já deve saber, uma ficha física é um conjunto de fichas 
lógicas que compõe um bloco de informações que será armazenado de uma 
só vez em fita. Por sua vez, uma ficha lógica é aquela que, no nosso exem¬ 
plo, contém uma série de informações, isto é, um membro de uma família, 
com sua data natalícia e seus gostos. Como todo armazenamento será feito 
em High-Speed, isto é, levará pouco espaço de fita e pouco tempo, sugiro 
agrupar pelo menos 15 a 20 fichas lógicas em cada ficha física. Informe ao 
computador a sua escolha (lembre-se que uma vez escolhida a quantidade 
de fichas lógicas por ficha física, este dado ficará fixo e imutável para este 
arquivo). 

CONFIRA OS DADOS; 

NOME DO ARQUIVO; 

■BOBaHBaaai 

ARQUIVO DE ANIVERSÁRIOS 
TÍTULOS 

1. FAMÍLIA 10 

2. NOME-NA SC.-G OST0 3O 

3. DATA 5 

15 FICHAS LÓGICAS/FICHA FÍSICA, 

OS DADOS ESTÃO CERTOS'? (S/N) 
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Neste ponto, o programa mostrará as informações fornecidas,e você 
poderá aprová-las ou refazê-las se houver algum erro. 

AGORA GRAVE ESTE ARQUIVO 
NO INICIO DE ÜMA FITA NOVA 
PARA POSTERIOR 
ARMAZENAMENTO DE DADOS, 

ENTRE 'REC NO GRAVADOR 
E “NELI LINE". 

Uma vez aprovados os dados, você será convidado a armazenar em 
fita o programa, já com o assunto e os títulos definidos. Aceite o convite, 
pegue uma fita nova, (das boas, lembre-se), e "salve" o programa no início 
da mesma. A fita conterá o programa e,mais tarde,o arquivo com todos os 
dados. Sugiro que você use uma fita para cada Arquivo de dados (isto é, o 
programa e o conjunto de fichas físicas com os seus dados respectivos). 

Após ter "salvado" o programa (ou quando você for carregá-lo 
novamente no computador numa outra ocasião), ele já iniciará com o 
título do arquivo e permitirá a você entrar com dados ou pesquisar fichas 
lógicas existentes. 

ARQUIVO DE-ANIVERSÁRIOS 


VOGE DESEJA: 

1 . CRIAR E GRAVAR FICHA FÍSICA 

2. PESQUISAR FICHA LÓGICA 

Como você ainda não entrou com dados, ainda não haverá fichas 
lógicas a serem pesquisadas. Escolha a Opção 1. 

Agora você deve entrar com tantos grupos de informações por vez, 
quanto for o número de fichas lógicas que você definiu por ficha física. 

Exemplo de uma ficha lógica: 

Nome de familia: Almeida 

Nome, Nascimento e Gosto: Eduardo,-69-Microcomputador 
(rapaz inteligente) 

Data Natalícia: 16/05 
e assim por diante. 

Agora,grave em fita (logo após o ponto da fita onde termina a grava¬ 
ção do programa) a ficha física criada. 

Após a gravação você poderá formar e gravar outras fichas físicas 
(ou não). Cada uma das novas fichas físicas deverá ser "salvada" na sua 
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fita uma após a outra, com um pequeno intervalo de 1 a 2 segundos entre 
elas. Se você quiser adicionar outras fichas físicas em outra ocasião, tudo 
bem. Carregue o programa no computador. Depois leve a fita até o fim da 
última ficha criada e grave, a partir daí, novas informações. 

As informações que você for armazenando nas sucessivas fichas fí¬ 
sicas não necessitam estar em qualquer ordem específica (por exemplo: 
todos os membros de uma família juntos; ou data de aniversário crono¬ 
lógicas). Quando você for pesquisar informações do arquivo (e veremos 
logo adiante como), elas serão conseguidas não importando a sua ordem 
de armazenamento. 

Suponhamos agora que você já montou seu arquivo com informa¬ 
ções de seu enorme círculo de amigos e parentes. Você agora quer saber 
quais as datas de aniversário de todos os membros da família Almeida. Pro¬ 
ceda assim: 

Carregue o programa 

Escolha a opção 2 do menu inicial. 

Escolha depois a opção 1 do menu seguinte: Nome de família. 

Digite então a informação: Almeida. Informe agora se você tem 
impressora ligada. Depois entre NEW-LINE e ligue o gravador. Deixe a fita 
correr (na posição EAR-EAR dos contatos, é lógico). O computador pes¬ 
quisará as informaçêos de todas as fichas físicas armazenadas até a última. 

Desligue então o gravador. 

Se você estiver com a impressora acoplada, ela começará a funcio¬ 
nar automaticamente e imprimirá todos os dados da família Almeida. Se 
não houver impressora por pertô, as informações começarão a percorrer a 
tela e você poderá lê-las ou copiar numa folha de papel os dados que você 
procurou. 

Se você quiser alguma outra informação, por exemplo: quem faz 
anos no dia 20/07 proceda assim: responda sim ao computador após a 
pesquisa anterior. Volte a fita para o ponto de início de dados (logo após a 
gravação do próprio programa). Escolha a opção 3 do Menu e deixe o 
computador fazer esta nova pesquisa. 

Para não haver confusão no controle de programas e dados na fita, 
sugiro que você anote sobre o rótulo de informações da fita os números do 
contador do gravador. Assim, vejamos: 

Programa 000 — 010 

1? Grupo de fichas 011 — 012 - 

2? Grupo de fichas 014 — 015 

e assim por diante. 

Cada vez que você for acrescentar novo grupo de fichas físicas, leve 
a fita até o ponto final das fichas gravadas anteriormente e,só aí,"salve" as 
novas informações. Para ler informações contidas na fita comece a leitura 
sempre na contagem 011 (usando o nosso exemplo). 

Gostou? 
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JOGOS 


Finalmente, vamos aos jogos,pois ninguém é de ferro. 

Este capítulo permite ao leitor fazer poesias com "O POETA"; 

Se divertir jogando "LUDO" com a molecada; 

Ganhar dinheiro (será?) com os jogos "VINTE E UM" e "CAÇA NÍQUEIS", 
e impressionar seus amigos alemães com a tabulação dos resultados do seu 
jogo de "SKAT". 

O Poeta 

0 programa "O POETA" foi criado para pessoas sensíveis e poé¬ 
ticas. 

Entre com o programa e depois apresente-o aos seus familiares. Eles 
vão adorar. 

O programa "O POETA" gera lindas poesias a partir de 17 vocábulos 
que você mesmo escolhe e introduz no computador. Veiamos como: 

1) Entre com a listagem abaixo 
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115 RETURN 

120 PRIHT H$;“ M ; 

125 RETURN 
130 PRINT I$j fi 
135 RETURN 
140 PRINT ü$;" 

14b RETURN 
150 PRINT K$; v ■ 

155 RETURN 

160 PRINT 

155 RETURN 

170 PRINT M$;" 44 ; 

175 RETURN 
130 PRINT N$; " 

155 RETURN 

190 PRINT 0$; 11 

195 RETURN 

280 PRINT P$; M 

205 RETURN 

210 PRINT 0$;” "; 

215 RETURN 
10.00 PRINT 

1001 PRINT 

1002 PRINT 

1003 RETURN 
2000 CLS 

2005 PRINT fiT 5,0;”UÜCE, COM SUfi 
UElH PÜETICfi ; IRfi CRIfiR 17 PhLh 
UR fi5 QUE btRHO U3 hdh b huh MI 

M PfiRfi GERAR LINDOSPüEMflS" 

2010 P 5 H U b E b 0 0 
2015 CLS 

2020 PRINT M ENTRE COM fiS PfiLRURfi 
5. ÜMfi fi UHfi" 

2030 PRINT 
2050 PRIHT -1. 

2053 INPUT fi$ 

2057 PRINT fi$ 

2060 PRINT "2. 

2063 INPUT B$ 

2067 PRINT B$ 

2070 PRINT “3. 

2073 INPUT C* 

2077 PRINT C$ 

2060 PRINT "4. “i 
2033 INPUT D$ 

2037 PRINT D$ 

2090 PRINT M 5 - 
2093 INPUT E $ 

•- i~i ~7 O T t”T — ± 
ctír i* t-hirí I ' u. :p 

2100 PRINT “6, 

2103 INPUT F $ 

21 0 7 P PIN i F $ 

2110 PRINT ** 7 « 

2113 INPUT G$ 

2117 PRINT G$ 


2120 

PRINT 

II 

O • T O 

i— -L. L_ w 

INPUT 

H $ 

P i p 7 

PRIHT 

H $ 

■—i -i r» 

d Jl vJ 1 w 

PRINT 

"9. 

213 3 

INPUT 

i$ 

2137 

PRINT 

1$ 

2140 

PRINT 

‘•10 

2143 

INPUT 

J* 

d J, ^ » 

PRINT 


2150 

PRINT 

"11 

21b3 

INPUT 

v 4 *#• 

2157 

PRINT 

K $ 

2160 

PRINT 

"12 

2163 

INPUT 

i_ $ 

* i ^ 

£L JL w 1 

PRINT 

L$ 

2170 

PRINT 

" 13 


INPUT 

M$ 

P 177 

U -i- 1 1 

PRINT 

M $ 

2130 

PRINT 

"14 

2153 

INPUT 

N $ 

d 1 o 7 

PRINT 

N$ 

2190 

PRINT 

"15 

2193 

INPUT 

0$ 

2197 

PRINT 

0 $ 

2200 

PRIHT 

"16 

2203 

INPUT 

P$ 

2207 

PRINT 

P $ 

2210 

PRINT 

"17 

2213 

INPUT 

0$ 

2217 

PRINT 

0$ 

2220 

PflUSE 

270 


2230 C L S 
2240 GOTO 3210 
3000 CLS 

3005 PRINT *’PfiLfiURfiS QUE ESTfiü N 
fi MENORIfi: ,r 


M * 

3020 

PRINT 

M *2 C 

ijC 

fiP fiREC 

J 

EM DE 

ERRO 

/ 

3030, E 


210 , 

fiPOS 1 

í 1 

9 


l * t 

3025 

PRINT 




3030 

PRINT 

"1. 

"; fi$ 


3040 

PRINT 

"d* * 

11 ; B$ 

I i ♦ 

3050 

PRINT 

O * 

" ; c$ 

i 

3060 

PRINT 

" 4. 

" ; D$ 


3070 

PRINT 

j i 

* 

**; E$ 

i i . 

3030 

PRINT 

b m 

f $ 

i 

3090 

PRINT 

t’ • 

"G$ 


3100 

PRINT 

3 r 

" ; H$ 

j i • 

3110 

PRINT 

"9. 

"; 1$ 


3120 

PRINT 

"10 



3130 

PRINT 

"11 

. “;K$ 

tt * 

3140 

PRINT 

"12 

. M ;L$ 

* 

3150 

PRINT 

"13 

. ";mí 


3160 

PRINT 

"14 

. ";n$ 
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3170 PRINT 11 15, " ; 0$ 

3130 PRINT ”16, " ; P$ 

3190 PRINT * 1 17 , ";Q$ 

3191 PAUSE 540 
3 i 'dH CL o 

3193 GOTO 3210 
■3194- CLS 

3196 PRINT PT 7,2;"COLOQUE O GRA 

VADOR EM *' "REC"" ENTRE ” 

"NEW LINE. 

3197 INPUT Z$ 

3lyS uLb 

3200 5RUE "O POETA'■ 

3205 CL5 

3210 PRINT AT 3,11;" O POETA " 

3215 PRINT AT 4-, 11; "“ ,l11 " 

3220 PRINT AT 7,3;"U0CE QUER. , . " 
3230 PRINT AT 9,1;"1. CRIAR UM 
A NOUA POESIA” 

3240 PRINT AT 11,1;"2. REVER A 

S PALAVRAS SUE ESTÃO 

NA MEMÓRIA" 

3250 PRINT AT 14,1;"3. GERAR U 
MA POESIA COM AS 

PALAVRAS SUE EST 

AO NA MEMÓRIA" 

3260 PRINT AT 16,1;“4. GRAVAR 
AS PALAVRAS DA M 

EMORIA" 


3270 

IF 

INKEY$ = “I” 

THEN 

RUN 2 

000 

3230 

0 

3290 

IF 

IWKEY$ = , ’2“ 

THEN 

Gü 1 0 

300 

IF 

JNKEY$=“3” 

THEN 

GOTO 

i 

3300 

IF 

INKEY $ = 11 4.'* 

THEN 

GOTO 

319 


•3310 GOTO 3270 
3500 SLOU __ 

3510 'PRINT 'AT"21 “ 0 T "P = NOVA POESI 
A, C=CQPIAR 1 M=MENU" 

3520 IF INKEY$="P" THEN GOTO 1 
3530 IF INKEY$="C" THEN GOTO 360 
0 

3540 IF INKEY$="M" THEN GOTO 320 
5 

3550 GOTO 3510 
3600 COPY 
3610 GOTO 3205 


2) Passe o programa para o gravador 
a- Entre "GOTO 3200" 
b- Coloque o gravador em "REC" 
c- Entre NEW LINE 
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3) Após a gravação o programa apresentará o Menu 



VOCE OU ER... 

1. CRIAR UMA NOVA POESIA 

2. REVER AS PALAVRAS OUE 

ESTRO NA MEMÓRIA 

3. GERAR UMA POESIA COM 

RS PALAVRAS 
OUE ESTRO NA MEMÓRIA 

4> 1 GRíHVAR Ho PHLHVRHo 

DA MEMÓRIA 

4) Escolha a Opção 1 

5) O programa convida você a entrar com 17 palavras a sua escolha 
a- escolha uma palavra 

b- entre com ela no computador 
c-entre NEW LINE 

d- continue com as palavras até completar 17. 

6) 0 programa volta ao Menu principal 

7) Se você quiser rever as palavras escolhidas entre com a Opção 2. 

8) Você verá, então, por alguns segundos, os 17 termos escolhidos e 
depois retornará ao Menu. 


P^^VRASCUE^^TAg^^lEM^lA^^ 

SE APARECER A MENSAGEM DE ERRO 
2/3030, ENTRE GOTO 3210, APOS 1, 

1. O SOL 

2. A BRISA 

3. AS ONDAS 

4. BRILHANDO 

5. A CHUVA 

6. CAINDO 

7. RF 

è. HORAS PASSANDO 

9. CREPÚSCULO 

10. SEMPRE 

11. NUNCA 

12. COM 

13. SEM 

14. ELE 

15. ELR 

16. BEIJOS 
17 ■ LhGR IMHS 
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9) AGORA^O GRANDE MOMENTO. . . 

Escolha a Opção 3 

— O computador gerará uma poesia usando as 17 palavras que sua veia 
poética escolheu. 

NUNCA S BRISA 
ELA A CHUUA 


L.AGRIMH15 N U N U H H U R A ‘c* P A w» H N D O •-> t 
MPRE BRILHANDO 0 SOL 
CREPUSCULÜ BRILHANDO HORAS PASSA 
NDO 


0 SOL 
H BR I*oH 

..,CAINDO 0 SOL 
BRILHANDO NUNCA SEMPRE 

A BRISA 

P^NOUA POESlÃ"! 1 ""C = COPIAR T M^ENU " 

10) Se você possuir um TK-PRINTER, poderá guardar para sempre aqueles 
poemas melhores que o computador gerou. 

Entre "C" quando a poesia estiver apresentada na tela. 

11) Para gerar nova poesia entre "P" 

12) Para voltar ao Menu principal entre "M" 

13) Você pode armazenar para sempre o programa com os 17 termos 
escolhidos: 

a- Escolha a "Opção 4" do Menu 

b- 0 programa será então gravado com as palavras escolhidas. 

14) Se você quiser entrar com o programa na memória entre com LOAD 
"0 POETA" ou LOAD ” 

15) Durante a utilização do programa evite entrar com "RUN", pois isso 
apagará todos os 17 termos da memória. 

16) Neste caso, ou ao entrar pela primeira vez com o programa, ele não 
terá nenhum dado na memória. Se você então escolher a Opção n? 2 será 
apresentada a mensagem de erro 2/3030. Neste caso entre com "GOTO 
3210" e "NEW UNE" e escolha a Opção 1 do Menu. 

Muito bem, agora mãos à obra. 

"Vinte e Um" 

O leitor certamente conhece bem o jogo "VINTE E UM" e vai gostar 
bastante desta versão na qual jogará contra o seu computador. 

Entre com o programa a seguir: 
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REM J 

10 

PRINT “8 

“; AT 

2 ,10: 

20 

PRINT ,, 

TAS, 


PS PPRP MIM. ' 

30 

PRINT “E 

NHA , 

ti 

c* SUAw* ■ 

40 

PRINT '*5 


•J U L? U "z* C LAcôI G u ir* 


TRADUZIDO 
POR B.e.STEIN 
JUN 1934. 


EU TIRO QUATRO CAR 
DUAS PARA UO GE , DU 


ENTRE CASO CONTRARIO ENT 

RE ” 

50 PRINT “GANHA QUEM COMPLETAR 
21 PONTOS * AQUELE QUE COMPLETAR 
MAIS DE 21 PONTOS, PERDEU. ,r 
55 PRINT ”0 EMPATE E* MEU." 
se PRINT AT 16,0; »BSBBWBH^DI 
GITE QUALQUER TECLA.” 

70 PAUSE 4E4 
300 LET A1=0 
310 LET 61=0 
350 CLS 
360 LET D =0 

370 LET P=0 

371 LET ZX=-1Q 

372 LET SP=0 
330 GOSUB 320 
390 LET R=C 
400 GOSUB 320 
410 LET S=C 

4 'd 0 G 0 'o U E* o 2 0 
430 LET T=C 
440 GOSUB 390 

450 LET U=C 

451 PRINT AT 2,0; ,, H 

452 PRINT PT 3 J 0; , Í?1 

453 PRINT PT 4,0"1 U~ . 

454 PRINT PT 5,0; "IÜ| 

455 IF R <10 THEN GOTO 459 

456 PRINT PT 1,0; “f 8 "R; "% WÊÈÈ" 

457 PRINT PT 5,0; "L" ; R; "J Wàmi" 


CPSO CONTRPRIO ENT 


. Dl 


:x=-i0 


mmm 


IF R <10 THEN GOTO 459 


vmÊÈÊ** 


456 PRINT AT 1,0 

457 PRINT AT 5,0 
453 GOTO 461 
459 PRINT AT 1,0 


R * li] 
s 

;R; " 


v*ví»v.w.>y.,Y* 

vXvfevMví/í: 


450 PRINT AT 


1,0; R; " m» 

5,0; R; ‘«‘yR; " ÉÜ 


451 PRINT AT 3,0;."UOCE TEM: M 

452 PRINT AT 0,0;"EU TENHO:” 

453 PRINT AT 1© , 0; "l*® I” 

454 PRINT AT 11,0; “f ÉS 1“ 

455 PRINT AT 12,Q; M |«Í M 

456 PRINT AT 13.0; “l Hf 


97 







4.87 

468 

4.FQ 

470 

471 

A O 
H» l Sm 

473 

474 

475 

476 

477 

j *7 
H- í W 

479 


481 

482 


IP T > 

P RINT 

PRINT 

G OT 0 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IF LU 

PRINT 

PRINT 

i "i I I ] u 

PRINT 

PRINT 

PRINT 


9 THEN 
PT 9,0 
PT 14, 

473 

PT 9,8 
PT 14, 
PT 10 , 
PT 11 , 
PT 12. 
PT 13 . 

10 THEN 
PT 9,5 
HT 14 « 


GOTO 471 

♦ -r* * 11 KlI > i * 

I 1J111 V 

/ 1 / :♦;*»:*> í * 

tiTiittii , T 


0 ; "l»” ; T; " J|' 

I—* , nS { I, 

Si 11 lívifif £ i, 

i 5 IvvX>v.* 9 

cr * ' < I -ys?M. Ç!, 

P .* 5 *<Ãvxír S 

GOTO 481 

; "r" ; M; 

5; 'ViÜi "-É' 


PT 9 5 
hT 14 
HT t* r 0 


J u; • WU 
s;uj "li-jü 

; “UOCE TEM 


tü 

500 

510 

520 

530 

540 


LET D =Rt5 
LET P =T+ U 

IP P =21 THEN GOTO 640 
603iIB 960 

IP L =1 THEN GOTO 690 
IP D<=15 THEN GOTO 740 


551 

PRINT 

PT 

P s * 


1 S 

552 

PRINT 

PT 

3,5; 

t 4 

| 

g zmm 

cr CT-T- 
D O 

PRINT 

*P í 

4-, 5; 

1 « 

i mm 

r VAV.VA 

554 

PRINT 

PT 

5,5; 

I 1 

«❖? 

UME 


cr cr cr 
1—* ‘J w 

IP 5 >9 

TH 

fcN 

GOTO 559 

556 

PRINT 

PT 

1, 

cr * •= • *• ihhiWf • • • -z 

Oj Wm t •-* 

R .37 

PRINT 

PT 

6 , 

CT • C" • *■ yX%ívX if . -c 

5 , o j mm i * 

558 

GfiTn F, 

61 



559 

PRINT 

PT 

1, 

p, g .* O 4 £ 

550 

PRINT 

PT 

, 

5; •%"; Sj "■*" 

561 

PRINT 

HT 


8; “EU TENHO; 

57© 

PRINT 

RT 

8, 

©; “UOCE TEM: 

580 

IP P > D 

TH 

EN 

GOTO 620 

500 

PRINT 

RT 

16 

, 0;“EU GANHEI 


505 LET Pl=fll+1 

610 GOTO 1060 _ 

620 PRINT PT 15.0; 

5Bj***“ 

525 LET B1=51+1 

530 GOTO 1050 

650 IP D=21 THEN GOTO 570 

650 GOTO 551 


670 

PRINT 

hT 

•1 T 
X JT 

NHO 21";PT 

*1 o 

1 , 

0 ; 

6 8 © 

G OT 0 5 

61 


590 

60Sü B 

890 


700 

P RINT 

PT 

10 

781 

PRINT 

PT 

11 

782 

PRINT 

PT 

12 

783 

PRINT 

PT 

13 

704 

IF 09 

TH 

EN 

705 

PRINT 

PT 

n * 

9, 


706 PRINT PT 14,5P ; C ; ; C 

787 GOTO 710 

708 PRINT PT 9,SP; ,? P #, ;C; ••Ü" 

709 PRINT PT 14 ,SP; “fc“ ■; C; "J" 

710 LET P=P+C 

712 PRINT PT 8,0; “UOCE TEM; ■“ : P 
715 IP P > 21 THEN GOTO 500 
730 GOTO 530 

740 PRINT PT 2 , ZX, "I M 

741 PRINT PT 3 , ZX; "I 

742 PRINT RT 4,ZX; ,, 1|| 

743 PRINT PT 5,ZX; M i|| 

744 IF 5<10 THEN GOTO 748 

745 PRINT PT 1, ZX; “f" ; 5 ; ,,J I" 

746 PRINT PT 6 , ZX; “fc“ ; 5; "ai" 

747 GOTO 750 

748 PRINT PT 1, ZX; 5; "flB" ; S 

749 PRINT PT 6 , ZX; 5; "jÉÉ“ ; 5 

75© PRINT PT 8,8;“EU TENHO: “ ; D 
751 GOSUB 82© 

760 LET D=D+C 

770 PRINT PT 2,ZX; ,, !ül ,t 

771 PRINT PT 3,ZX; 1“ 

772 PRINT PT 4 , ZX; “i Wê i" 

773 PRINT PT 5,ZX; “iHS" 

774 IP 09 THEN GOTO 778 

775 PRINT PT 1,ZX; C; “■“j C 

776 PRINT PT 6,ZX; G; ; Ç 

777 GOTO 780 

778 PRINT PT 1, ZX; “f“; C; 

779 PRINT PT 6 , ZX ; ; C ,* "Jt” 

780 PRINT PT 0,©;"EU TENHO: n vD 
790 IF D>21 THEN GOTO 620 

80O IP D<=16 THEN GOTO 758 
810 GOTO 561 

820 LET C = INT (RND*1Í)'+1 
825 LET ZX=ZX+5 
827 IF ZX > 29 THEN GOSUB 2018 
83© IP 0=11 THEN GOTO 85© 

840 GOTO 880 

850 IP (D+C) >21 THEN GOTO 87© 
86© GOTO 880 
876 LET C=1 
880 RETURN 

890 LET C=INT (RND*li)+1 
895 LET SP=SP+5 
§97 IF SP >29 THEN GOSUB 2010 
90O IF 0=11 THEN GOTO 920 
910 GOTO 950 

920 IF (P+C) >21 THEN GOTO 94-0 

930 GOTO 950 

94.0 LET 0 = 1 
Qtrrrj pcr*r! iqm 

965 PRINT PT 16,0;"UOCE QUER UM 
P CPRTP? (S/N) “ 

97© IP INKEY $=“" THEN GOTO 97© 





975 PRINT AT 16,0;” 

11 

980 IF INKEY$ = " 5 11 THEN GOTO 102 

0 

990 IF INKEY$=”N" THEN GOTO 104 

0 

995 GOTO 965 
1020 LET L=1 
1030 GOTO 1050 
104-0 LET L=0 
1050 RETURN 

1060 IF BI<R1 THEN PRINT RT 17,0 
; "E5TR* ” ; Rl; " : ”; Bl; " PRRR MIM." 

1061 IF B1>fl1 THEN PRINT RT 17,0 
; "ESTR" Bl; " : “ ; Rl; " PRRR UOCE. 

ii 

1062 IF R1=B1 THEN PRINT RT 17,0 
;"ESTAMOS EMPRTRDOS EM ";Rl;”:"; 
0 X 

1070 PRINT RT 19,0;“UOCE QUER UO 
GRR OUTRR UEZ? (S/N)" 

1090 IF INKEY$="" THEN GOTO 1090 
1095 IF INKEY$="S” THEN GOTO 335 
1100 IF INKEY$="N" THEN GOTO 110 
9 

1105 GOTO 1090 

1109 CL5 

1110 PRINT RT 10,9;"TCHRU MESMO, 


1120 5TQP 

1200 SRUE "UINTE E UM" 

1210 RUN 
20 Í0 CL-5 
2015 LET ZX=0 
2020 LET SP=0 
2030 RETURN 

Salve-o em fita. 

Ao iniciar-se, o programa mostrará as instruções abaixo: 

BEM UIMDO RO JOGO DE 


tU TIRu uUhThu UHRTfis, 

DUflS PflRR UOCE, DÜRS PRRR MIM 
EU RiSRO UMh CARTA MINHR , 

E RBRO RS DUAS CRRTR8 SUfiS, 

SE QUISER UMR CRRTR. ENTRE 'S 
CRSO CONTRARIO ENTRE “N" . 
GRNHfl GUcM COMPLtTRR £1 PONTO 
AQUELE QUE COMPLETAR MRIS DE 
PONTOS, PERDEU. 

O EMPRTE E s MEU. 

^SSBSBSBS, DIGITE QUALQUER TEC 
Digite qualquer tecla e o jogo começa. 


Lh , 


EU TENHO: 2.2 


1 mm i 


^ V//»)vfi 




i II i 

1 . 1 | 3 

c>üííK ; r ; 


UOCE TEM. 


C *v«v.v.v c 

^ iiiimi ™ 

3Èms 


is « 

19, 

.^HÉSS-n 


2Wm2 

ir&iti 


O AVAV.Vti 
^ /fYfVtVt T. 


I mm ( 

«. xox«»> 3 


ESTfi* 2:1 PPRR MIM. 

Ü O CE Q Ü E R ■ J O G H R ü UTRh UEZT C S .• * N) 

Você pede quantas cartas quiser. Se obtiver soma maior que 21 o 
computador ganha. Se você parar de jogar o computador começará a tirar 
cartas. 

E que ganhe o melhor. 

Ludo 

O Jogo de Ludo, ou Ludo Real, também é bastante divertido e 
conhecido principalmente por leitores mais jovens. Geralmente ele 
pode ser jogado por até 4 pessoas,porém , nesta versão, o leitor joga contra 
o computador. 

Ao contrário de muitos outros jogos que são rápidos, este jogo de 
"LUDO" prende o leitor ao computador durante bastante tempo e é muito 
divertido e desafiador. 

Entre com a iistagem a seguir e salve-a depois em fita. 

10 REM UUUU8 L’LRo z- 1UU8 


TRADUZIDO E MODIFICADO 
POR 8.C.STEIN 
ABRIL 1984. 

£90 DIM Ai4) 

300 DIM B (4-) 

310 DIM D (4-í 
320 DIM X (2,4-5 
325 DIM Y(2,4) 

0 íR Q T 0 4800 
340 LET FI=0 
370 LET.X=Q 
380 LET G = 1 
390 LET K = 1 
400 LET J=0 
4H0 bLuU 








.1 


4.30 

PRINT PT 51,0; 

PHKH i _ ! U li H k U 

DRDÜ, ENTRE 1 TECL 

H f ‘ 

435 

LET CG = 1 


440 

PRINT PT 8,55; 

li ** 

44 * 

GOSUB 7008 


450 

IF INKEY$ = “" THEN GOTO 445 

455 

PRIhlT PT 15,55 

. «i ■ i 

j 

■ e f?- 

LET J=Jt1 


470 

PRINT PT 8,55; 

"SAIU ü “; I 

450 

IF K = 1 PNC> I<> 

5 P ND J <3 THE 

N GOTO *00 


490 

GOTO *40 


500 

PRINT PT 15 i 22 

;"QUTRfi ÜEZ” 

530 

L * T * 4 4 * 


*70 

IF 1=5 THEN GOTO 380 

* O t? 

zrrs 

IF K = 1 RN D U = 3 

THEN GOTO 10 

t. 1 

590 

5L0U 


500 

PRINT PT 51,0; 

1 f 0 U P L P E D R fi U 

OCt * 

Jfil PUPNCPR7 

»« 

810 

INPUT 5$ 


515 

IF 5 $ = M " THEN 

GOTO 510 

S.L0 

GOSUB 7100 


p, c; 

I* NO í OK THEN 

GOTO 510 

/—• 

LET N=ÜPL Sê 


5 5 0 

Ir N=0« THEN GO' 

TO 4900__ 

5 6 0 

IF PíN)=0 THEN 

GOTO 510 

870 

IF fi (N 3 +1 > 44 THEN GOTO 510- 

580 

rOR M = 1 TO 4 


590 

Ir P í NJ + I=P(Mi 

THEN GOTO 51 

•cl 

700 

NEXT M 


710 

FOR U=i TO 4 


750 

IF h (U) =H ÍN) Ti 

HEN GOTO 740 

730 

IF fiíUJsl THEN 

GOTO 750 

740 

NEXT U 


750 

GOTO 530 


-? iC. ffc 

í V. 1 

FOR fi = 1 TO 4 


r - i. : 

~S 

Ir h (U ) +1 = H i M 5 

THEN GOTO 53 

~ 780 

NEXT fi 


785 

FOR fi = 1 TO 4 


/ 8 «4* 

IF P íH) =0 THEN 

GOTO 790 

7 3 5 

NEXT fi 


,*■ »“»o 

GOTO 330 


755 

GOSUB 7050 


•=• «"?i »*X 

VL« KJ 

PRINT PT 51,0; 1 

'' u 0 G U£ P RIM EI 

R 0 H 

PEDRfi N , ; U 


310 

SLOÜ 



315 FOR H= 0 TO 50 
320 NEXT N 
825 GOTO 500 


330 

T" cr i“"j r f.s ’i 1 nr t a ** 

JLi n t !■*.' t _L <. M- «i. 

TH* fi G 0 5 U * 315 

0 40 

GOSUB 5500 


850 

LET P (N) =9 (N) 

+ T 

* 1^ 

w cr cr 
w W v 1 

Ir r1=1 THlN 

GOSUB 3305 


G05UB 3305 


3b8 Ir R l N) >4.0 HND H í N ) — I<4 .1 TH 
EN GOTO 3010 

350 Ir 1=5 THEN GOTO 400 

870 GOTO 1050 

390 LET K =2 

900 FOR N=1 TO 4 

910 IF R f N> =0 THEN GOTO 940 

920 NEXT N 

930 GOTO 59£*. 

940 FOR N=1 TO 4 

950 IF fi(M)=l THEN GOTO 590 

960 NEXT H 

970 SLÜU 

930 PRINT HT 21,0;"QUE PEDRfi EN 
TRh NO JOGO? 

985 INPUT 3$ 

990 IF S$ = ’"‘ THEN GOTO 985 
993 G03UB 7100 
995 IF NOT OK THEN -GOTO 93b 
997 LET N=UP.L 5$ 

993 IF N < 2 THEN GOTO 935 
1000 IF fl(N)<>0 THEN GOTO 985 
1010 LET fl (N! =-5 
1020 GOSUB 3150 
1025 LET R(N)=1 
1030 GOSUB 5100 
1035 IF FI=1 THEN GOSUB 3305 
1040 GOTO 400 
1050 LET C0=2 
10 b 0 b L u W 
1070 GOSUB 7020 

1075 PRINT RT 5,22;“MINHA UEZ“ 
1080 LET F =0 ■ 

1085 PRINT RT 3,22;” 

1090 GOSUB 7000 

1100 PRINT RT 8.22;“SAIU 0 •* , jCHR 
$ í1+156) 

1110 LET F=F+1 

1120 Ir G = 1 RND I< >5 RND F<3 THE 
N GOTO 1140 
1130 RQTO 1190 

1140 PRINT RT 12,22;"OUTRA UEZ" 

115© GOSUB 7040 

1170 PRINT PT 12,22; ** 

1180 GOTO 1090 
1190 RHSUB 7040 
1193 PRINT RT 5,22;“ 

1195 IF 1=5 THEN GOTO 122© 

1200. IF G = 1 RND F =3 THEN GOTO 4© 
0 

1210 GOTO 138© 

122© LET G=2 

1230 FOR N = 1 TO 4 

1240 IF B<Ní=0 THEN GOTO 127© 

1250 NEXT N 

12 6' 0 G OT 0 13 8 0 

1270 FOR M = 1 TO 4- 


22; "SAIU 0 - ,: ;CHR 
I< >5 RND F<3 THE 


102 




1280 

IF D’M) =21 T HEN 

jj u T y x w o y 

1290 

NEXT M 


1310 

PRINT PT 21,0; "Eí 

U 5910 Cüfl 

H PED 

R fi N ,";CHR$ <N *156) 

I ■ J» hí 0 

LET B(N)=21 


1330 

LET D(N)=£1 


1335 

605 UB 3330 


1 lr* 4 0 

1*3 n S jj B t> 5 © 0 


1350 

Ir FI = 1 THEN SOS 

UB 3390 

1370 

G OT 0 1050 


1330 

FR ST 


1385 

FOR N = 1 TO 4 


1390 

Ir DCN)=21 THtN 

GOTO 1420 

1400 

NtxT N 


1418 

GOTO 1430 


1420 

rOR M=1 TO 4 


1430 

IF D ÍN3 +I=D(M) T HEN GOTO 14 

1440 

NEXT í-1 


1442 

r 0 R M = 1 T 0 4 


1444 

IF 5 £M> =0 THEN G 

OTO 1450 

1445 

NEXT M 


1448 

GOTO 1430 


1450 

LET B ( N ) =B (N) +I 


1450 

LET D(N)=D(N)+I 


1470 

GOTO 4000 


1430 

FOR N = 1 TO 4 


1490 

IF D £N)+1>60 HMD 

0£N)+1<65 

THEN 

GOTO 112 0 


1500 

NEXT N 


1510 

GOTO 1530 


1520 

FOR M=i TO 4 


1530 

IF £><N)+I=DÍM) THEN GOTO lt 

1540 

NEXT M 


1550 

LET B£N3 =6 £N)+1 


1550 

LET D ( N i =D ( N 3 +1 


1578 

GOTO 420© 


1580 

r 0 R N =1 T 0 4 


1590 

IF 8íN:>=0 THEN G 

; OT Ü 1660 

1600 

IF D cm >50 OR D(N)+I>60 T Hz 

N GOT0 1550 


1510 

L tzT U =5 (N) + I 


1520 

IP u >40 THEN lET 

U=U-40 

15 3 0 

for M = 1 TO 4 


1640 

IF P CM) <41 PNC» H CM) =tf THEN 

GOTO 

1710 


1550 

NEXT H 


1680 

NEXT N 


1700 

GOTO 1740 


1710 

LET B£N)=U 


1720 

LET D£N) =D (N) +1 


1730 

GOTO 4000 


1740 

FOR N = 1 TO 4 


1745 

LET 2=N 

GOTO 1310 

1750 

IF D(Ni>60 THEN 


1750 

for n=i to 

i ■"** ,n 

L / / Vi 

IF D(H) >60 

1730 

IF D <Ni <0 O 

1790 

NEXT M 

1800 

ij? uT U 1 zl t ! 

1310 

NEXT N 

1320 

IF B ÍN> =0 

1325 

IF D INI +1 > 

1830 

FOR r-1 = 1 TO 

i F 3 4 

IF 0 £ N í * I = 

00 


18 3 6 

NEXT M 

1 o 4 0 

LET U=BlN) 


“ íTi i-?. 


1850 IP tf >40 THtN LET tf=tf-40 

1855 IF DCN;=41 THEN GOTO 1930 

1860 FOR h = 1 TO 4 

1865 IF H CM) =0 THEN GOTO 1880 

1F;70 tf 5 (N) > = P í M) + 1 HMD BCN) <: =P 

(h)+5 THEN GOTO 1930 

1880 NEXT M 

1885 IF D <N) +1=41 THEN GOTO £ü0® 
18 9 0 ~ O R M = i T ü 4 

1895 IF P (M) =0 THEN UTU 19 ±0 __ 
1900 IF U > =H i h ) 1 PND U<=PCM) 45 

~HEN GOTO 5200 
Í 310 NtXT r-1 
1930 LET 5 ÍNí =Ü 
1940 LET D £N) =D ÍN) +1 
1950 GOTO 40.00 


2200 

for P=i TO 1© 

T -1 0 

i__ ft N = INT ( H N D 7T' 

P21F 

IP M =Z THEN GOT> 

~l -p 0 

ÍF B(M3 <>0 9N0 i 

Z M l? \ 

jTÜ 2250 

2230 

NEXT P 

2240 

GOT Cs 2330 

2250 

LET U=B (N) +1 

250 

IP tf >40 THtN LE' 
F O* Ri U = 1 T U 4 

2270 

2280* 

30 

IF D CM) -rI=D CO) 

9 0 

NEXT 0 

2800 

LET B(N)=tf 

2310 

LET DÍN)=D(Nl +1 

2320 

GOTO 4000 

2330 

FOR N = 1 TO 4 

2340 

IF 8 CN) < >0 PND 

Z N G 

OTO 2370 

23 *0 

NEXT N 

2380 

GOTO 2450 

2370 

F 0 R M = 1 T y 4 

2390 

IF D(NHI=D(H) 


50 

241© NEXT M 

LET B i N1 =B £ N ) + 


242© 
243© 

N) -4© 


B(N5 >4© T HtN LtT B(N! =6( 



d 4 4 U 

uizT P (N i = 1/ 

\N) + 1 


d H- U 

UUTü 4U00 



,*í jÍm iTH 

d 4- O vi' 

FOR N = 1 TO 

4 


2470 

IF D (N) > =2 

X HN C) 

DÍN> <61 i 

N GOT 

0 2670 



2450 

IF D ÍN) < >0 

THE N 

LET X=X+1 

2490 

Kjcvr M 

Nl-A 1 r+ 



2500 

FHR N=1 TO 

4 


2510 

IF D CM) =54 

THEN 

GOTO 2540 

2520 

NEXT N 



2530 

Gfiyn 2570 



2540 

IF X=1 THE 

N GOTO 

2640 

2550 

FOR N = 1 TO 

4 


2550 

IF D ( ri) =63 

ii.-k i 

i r*H f- T\i 

1 1 » 1 

GOTO 2590 

u* 1 V.’ 

NEX i N 



2550 

GOTO 2670 



2590 

IF X =2 THE 

N GOTO 

2640 

2600 

FOR N = 1 TO 

4 


2610 

IF D(N)=62 

THEN 

GOTO 2648 

2620 

NEXT N 



2530 

GOTO 2670 




2540 LET X=0 
2650 LET G = 1 
2555 5L 0 U 
2550 GOTO 1140 

p }T. cr mí.í 

S6S8 PRINT hT 21 4 8; "EU Nfiü POSSO 
O O ühR• * 

2690 LET X=8 

2700 GOSUB 7040 

2720 IF 1=5 THEM GOTO 1050 

2730 GOTO 40.0 

2760 IF 1=6 THEN GOTO 400 

2755 FOR W=1 TO 4 

2770 IF H i N) > =1 RND RÍN)<41 THEN 
G uT u c y y 0 

2750 IF H(N) < > 0 THEN LET X=X + i 

2790 NEXT N 

2600 FOR N — 1 TO 4 

2610 Il“ H í N ) =44 THEN GOTO 2840 

2820 NEXT N 

2830 GOTO 2990 

2840 IF X=i THEN GOTO 2940 

2850 rOR N=1 TO 4 

2880 IF H(N3=43 THEN GOTO 2890 

2870 NEXT N 

2850 GOTO 2990- 

2890 IF X =2 THEN GOTO 2940 

2900 FOR N = 1 TO 4 

dy 10 Ir - H i M) = 4d THtN yuTu d y 4y 

2920 NEXT N 

2930 GOTO 2990 

2940 Lti X=0 

2950 LET' K = 1 

2980 GOTO 410 

2990 LET X =0 


106 


3050 
3060 
3070 
3050 
3110 
3120 
3145 
□ ü , 
3150 
3150 
3170 
T H t N 
1 o 0 
3190 

O i7i cr 

W 4 *— W 

3210 


GOTO 1050 
FOR 0=1 TO 4 

IF h f 0) <4:1 THEN GOTO :“;0Q£v 
NEXT 0 
GOTO 3130 

IF 1=6 THEN GOTO 408 
GOTO 1850 

PRINT Ri 21, 0 ; "x■£ OOCE GRNH 
ri Ui. Tu £? Em# * 7 
üHT0 5808 
FOR M = 1 TO 4 

IF D (M) <61 RND híMHI=B (M) : 

GOTO 3280 

NEXT M 

RETURN 

Ij u O U E 1 1 ' 0 d U 

PRINT RT 21,0;“UOCE COMEU M 
PEDRP N , “ ; CHR 5 (M + ib6; ; ■* 


3228 

GOSuB 7040 




32 33 

LET FI=1 




3240 

L bT b> 1M J =0 




*~t cr rx 
•-> d tJ 

LET D Ui) =0 




3260 

>“* U R H = 1 i U 4 




•” t”?t 

w d : 

JF R (P ’> < > 8 THEN GO 

1 y 

‘ 5 

*■ 

3288 

NEXT P 




3 2 9 b 

LET MU=(i 




3300 

RETURN 




3305 

LET X í2 1 MU ) =2S(MU = 


•“*1 ni 

w n. 

Mu =4 

i 

3388 

LET FI=8 




3310 

LET Y í 2,MU) =16*(Mü 

1 

GR 

MÜ = 

J» j *f d 0 í i fi U = d U K fi ü — 4 ) 




3315 

PR INT H" X C 2 , NU) Y 

í 

; MU 

í ; CM 

R$ ( 

MU -r ib5} 




3320 

RETURN 




3330 

FOR M=1 TO 4 




• -• 

w w H- fc* 

IF H (M) <4-1 AND fi (M 

) - 

B íN 

) TH 

E N y* 

OTO 3370 




y 3 5 0 

NEXT M 




3360 

RbTURN 




3370 

GOSUB 7040 




i* W w* 

GOSUB 7020- 





PRINT RT 21.0 ,’ l, EU 

C 0 

hl 

R Pb 

D R H 

<*. í * * » r.i • 1 1 

r* « , : 3 > 

ir 



"7, —t 

j. v í / í^i 

T: O O f>. 

LET FI = 1 
i £1 HU = M 

RETURN 




w 1 U* tu 




3390 

LET FI =0 




3 3 R F 

LET RíMU3=0 




3400 

LET X Cl,MU) -13*(Mu 

.1 

— á 

ÜK 

MU = 

2) +2 
J 410 
) 

4 ei 0 

D * 1 fi u = U U R íi Lí = 4 ) 

LET Y 11,MÜ) =2* i M Ü = 

CZw 

OR 

r iL$ cr 4 

PRINT fiT X (i,MU3 ,Y 

11 

, MU 

) ; MU 

3425 

FOR N=1 TO 4 
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3426 IF ACN)<>8 THEN RtTURN 

3427 NEXT N 
3430 LET K =1 
3450 RETÜRN 
4010 905ÜB 7070 

4030 IF D CM) <61 THEN 905 UB 3330 
4040 9OS UB 5200 
4050 IF FI=1 THEN 90SUB 3390 
4060 IF 1=5 THEN GOTO 1050 
4070 t?UTu 400 

4200 IF DÍN)-I>60 ThEH GOTO 4800 

4210 90SUB 7070 

4225 GOSUB 5200 

4230 í-OR N = 1 TO 4 

4240 IF DÍN)<61 THEN GOTO 4230 

4250 NEXT N 

4 b! U 0 UOT U 4 3 b! 0 

4300 IF 1=6 THEN GOTO 1050 

4310 GOTO 408 

4320 PRINT AT 21,0; m ** E 

U GANHEI ±± 

4330 GOTO 6080 

4500 í" 0R T = 1 TO 4 

4510 PRINT T AB 5; "t" ; TAB 12; U » M 

4515 PRINT 

4520 NEXT T 

4530 RETÜRN 

4550 FAST 

4555 GOSUB 4580 

4550 PRINT "I ! ! | I ±1111 
4578 PRINT RT 2,18;"* M ;RT 4,18;" 


*>* * •“ 


<+.»'• PT i íTí ' »* 
± j ri i “?• j ± t 


5 j 18; M d j RT 14 j 18; ” *'•; ; RI 


s " -1 - 

; J. > 

AT 

•i •=■ c * M r* 

J- f CL j u— 

O iTi C» * 

" 4 m 


4538 v 

PRI: 

NT RT 1 

•»X wí! vX 

: : v!v! • 

Wi 1 1 1 

x*x 

4555 

PRINT 

4598 

L? U O 

UB 4588 

4595 

SLO 

U 

4608 

LlrT 

X (1 , 13 

4518 

LET 

X £ 1,2) 

c*. P c! 

LirT 

X(i f 3) 

4538 

LET 

X i I * 4) 

4648 

LET 

Y(1 j 1) 

4550 

LET 

Y(1,2) 

4668 

LET 

Yd. 3) 

4678 

LET 

Y(1,4) 

4530 

LET 

X(2,1) 

4698 

L irT 

X(2,5) 

4700 

LET 

X (b! , LU 

4718 

Lir \ 

X(2,4) 


j» 1 u 
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4-720 LET Y (2,1) =18 

4730 LET Y (2,2) =20 

4740 LET Y (2,3) =18 

4750 LET Y Í2,4) =20 

47S0 GOTO .540 

4800 PRINT "SEN UI ND O fiü JOGO O 

**; at 2 ; 13; ''KSS3SB >a 
4610 PRINT , ./'VOCE NRO PRECISR 
E Uh TABULEIROEU DESfcNHO UM NR 
ELA, UOCE USA RS PEDRA 

R ir. S Q ü E R D R E M 6 RIX 0 , E U U S 0 H 3 
PEDRAS PRETAS 

4315 P R J NT ' 1 0 0 B J ET IU 0 D 0 J 0 G ü ir 
a CHEGAR COMAS 4 d cDhhS EM 5 UR 
PRPRIR CASA,” 

4820 PRINT “PARA SAIR 4* PRECISO 
MM PARAISSO U0Cir: 4 trü TEMO 

S 3 CHANCES * 

4822 PRINT ”0 6 DA DIREITO A UMA 


NO UR 

•JOGADA'* 


4i=í25 ■ 

PRINT 11 SE 

Í \ H h F 1 ir D R fi 0 0 U P H R 

A ME 3 

MA CASADA 

DO ADUERSARIO, E 

L H H 

COMERA -" 


X • “■ i/j 

•-+*'L.' •«.' V. 1 

PRINT -SE 

N H 0 F 0 R P 0 S SIV E L 

RirHL 

IZRR UMLAr 

■i CE, R U15 E - M E E H T R 

ANDO 

COM “ *‘0“ "r 

•♦IÃO UALE ROUBAR * fl 

4635 

PRINT "EU 

CONTROLO TODAS RS 


JOGADAS . 

4S40 PRIN I Hi 4 4,0 ; 'ÍÉI&í 


, i.-' JL. 


GITE OU AL QUER TECLA . 

4 o 5 8 PAUSE 4 ir 4 
4 c« 6 8 L" L o 
4378 GOTO 4558 
4988 FOR N = 1 TG 4- 

4910 IF A <N) =8 CiR A W + J >44 THEN 
g u i o 4 y o 0 
4920 GOT0 4950 
4930 NEXT N 


4948 

GOTO 2768 


4958 

FOR M =1 TO 4 


4958 

r\ 

I|- H i N) +1 = A M 3 

TH ir M G 0 T ü 4 9 

w 

4978 

NEXT M 


5808 

PRINT AT 21.0," 

v 0 C E P 0 D fc J 0 

GAR . 
5810 

GOSUB 7848 

t ; 

5048 

GOTO 508 


w 188 

PRINT AT X d,M) 


5118 

LET X(1/N5 =28 



5120 LET V(1,N)=8 

5130 PRINT hT X(1,N> ,V í1,N) ; N 

,v<co.h.; o» 

R $ !l i + 15± ÍL- U = 1 H N D w - L v 4) >40 G r-’ L 
=2 fi N D D í MI« -1 > 6 0 > i 


U.J O H U.» 




Z>ir! 1 0 L izT X lL — H C N ) ± ( L* Ü — X .> "t l D ( N } — i > 
* (CO =2 AMD 5 í N) - I>=ÍJ + l'D ÍM) -1 t( 
CO=2 AND B(N j - i < 1) 

5230 FOR M=1 TC I 

5240 L5T X tCO,M / = X fCü,N) +2* <X1> = 
21 HMD XI<25 ÜR XI=29 GR XI=30 ü 
R XI>=35 HMD XI<39 ÜR XI>=20 HMD 
DCN) > =60 HMD CO=2J -2*(X1> =1 AND 
XI<5 ÜR XI=9 GR X1=10 ÜR XI>=15 
AND XI<19 ÜR XI>=40 AMD CQ=i> 

5250 LET V í ÜÜ , M) =Y (CO , M} +2 4 (X1 = 1 
9 ÜR XI=20 AMD CO=l ÜR XI>=2* AN 
D X1 < d y u R X1 > = 11 H N d X1 < 1 ir» J — d i 
XI>=31 AMD XI<35 ÜR XI=39 ÜR XI= 
40 AMD Cü =2 ÜR XI>=5 AMD XI<9) 

5255 LET Xl=Xl+i 

5257 IF X1> =41 HMD CO=2 THEN lET 
XI=X1-40 
5250 NEXT M 

52 70 PRIMT AT X tCG,N) ,V{CÜ ,N} ;CH 

K $ l N +cd T 1 CL O t ( vü } ) 

5230 RETURN 

D 500 P K IMT H X ( sL / M l J V [ c ; N ) } '‘ ♦■:>$ *' 
5510 LET X (2,N) =Q 
5520 LET Y í 2 = N ) =12 

5530 PRIMT AT X (2,N) ,Y (2,M) j CHR $ 
(M 4155) 
d4d 40 hlE i üKf *4 
5000 PAUSE 4E4 
5200 CLS 
530G RUM 

7000 LET 1=1MT ÍRND*6J+1 

7010 RETURN 

7020 PRIMT AT 21/0;” 


7030 

RETURN 



7040 

FOR T =0 

TO 30 


7050 

NEXT T 



7050 

RETURN 



7070 

SL OU 



7050 

PRIMT AT 

c 1 j 0 

, "EU A Ü A NC 0 A 

PEOR 

A M . **; CHR $ í M 4- 

15 5) 

7090 

KETUkM 



7100 

LET OK=0 



7110 

FOR J=1 

TO LE 

N S $ 

7120 

tt 

IF S$iJ> 

^ * ? T í 

THEN i_ET 5$ = "0 

7130 

IP S$(J) 

> ’' 4'' 

FHEN RETURN 

7140 

NEXT J 



7145 

IF UAL 5 

$ >4 T 

HEM RETIJRN 

7150 

i cr-r - “j w _ *i 

i_» i_ i s — ! ; \ ■— _L 



71 50 

£“j £r*T f iCú-i 
n. u. i ü K ■ m 



5000 

SAUE *'L UDO M 


3010 

RUN 
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Ao iniciar, o computador mostrará as seguintes instruções: 


;; t: M j x N D Ü H 0 J ü ü 0 D E 


./ n c 
c U 
•JGC 

5 A I 
Ü Ü 
Hb 
H AK 
155 
ü 5 
5E 
DA 
SE 
LAN 
MAC 
EU • 


E_MA0 
D iz 51N 
éz U S A 
Xü , 
BJÈTI 
4 PED 
A SAIí 
0 iJQCi 
DA D 
UMA Pí 
DG AD ! 
MAC Fi 
CE, A 1 
UALE 
CÜMTR: 


* R ti U X H D t ü M T H 3 U i_ tz IH L 
« UM NA TELA. 
iS PEDRAS A ESQUERDA FM 
í USO AS PEDRAS PRETAS, 
i DO JOGO E 1 CHEGAR COM 
iS EM SUA PRPRIA CASA, 
£z ** PKEL* Xr«U U M D ,» PHh!H 
E EU TEMOS 3 CHANCES. 
:EXTü A UMA NOUA JOGADA 
'RA- OCUPAR A MESMA CASA 
:RSARXü , ELA A COMERA. 

: POSSXUEL REALIZAR UM 
:SE-ME ENTRANDO COM 
ÜUBAR. 

U T U D H O H v? J 0 U H D H i> a 


* D XG XTE QUALQUER TECLA , 

Ao digitar qualquer tecla você verá o tabuleiro de jogo. Conforme as 
instruções já deixaram claro, você joga com as pedras que estão embaixo 
à esquerda da tela. O seu adversário, que é o computador, usará as pedras 
pretas à direita, na parte superior do Vídeo. 


W: >S: 


I 1 
§ 2 


v&: «£ vii: 


4 ** v!v! 


M :;1 n 

v.v* 


RfiRRi jOGRR O DhDO . ENTkE 1 TtCLfl 
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Os jogadores se alternam no jogo. Para sair você precisa de um 6 . 
Para tanto você e o computador têm três chances. Após sair com 060 jogo 
dá direito a nova jogada e o jogador, se possível, deve desocupar a casa 
onde a pedra recém-saída se encontra. Cada vez que uma pedra ocupar a 
casa onde está uma pedra adversária, esta estará sendo "comida", e de¬ 
verá voltaf para a origem. 

Ganha quem chegar primeiro com as quatro pedras no abrigo final. 
O computador controla o jogo e só permite jogadas lícitas ao leitor. 
Boa Sorte! 


2 Caracteres gráficos da tecla "7" 
1 Caractere gráfico da tecla "4" 

1 Espaço 

1 Caractere gráfico da tecla "3" 

1 Caractere gráfico da tecla "5" 

2 Espaços 

1 Caractere gráfico da tecla "E" 


Caça Níqueis 

Embora existam outros programas para o seu TK, este Caça 
Níqueis tem uma apresentação gráfica e uma série de opções rrtuito atraen¬ 
tes. Vale a pena digitá-lo no seu computador e impressionar os amigos. 

Entre com 0 programa, armazene-o em fita entrando "GOTO 9500". 
A seguir, mostramos algumas instruções para auxiliar o leitor a entrar com 
as linhas de figuras da listagem: 

Linha 170:32 Caracteres gráficos da tecla "A" 

Linha 175:32 Caracteres gráficos da tecla "SPACE" 

Linha 340: 7 Caracteres gráficos da tecla "7" 

1 Caractere gráfico da tecla "R" 

7 Caracteres gráficos da tecla "7" 

1 Caractere gráfico da tecla "R" 

7 Caracteres gráficos da tecla "7" 

1 Caractere gráfico da tecla "R" 

8 Caracteres gráficos da tecla "7" 

Linha 360:32 Caracteres gráficos da tecla "7" 

Linhas 4100-4200-4300:16 Caracteres gráficos da tecla "T" 

Linha 8100:2 espaços 

1 Caractere gráfico da tecla " 8 " 

3 Espaços 
1 Espaço 

1 Caractere gráfico da tecla "3" 

1 Caractere gráfico da tecla "1" 

1 Caractere gráfico da tecla "y" 

2 Espaços 

1 Caractere gráfico da tecla " 8 " 

1 Caractere gráfico da tecla "5" 

2 Espaços 

1 Caractere gráfico da tecla "SPACE" 

1 Espaço 

Linha 8200: 1 Espaço 

1 Caractere gráfico da tecla "T" 


1 Espaço 

1 Caractere gráfico da tecla "Y" 

2 Caracteres gráficos da tecla " 6 " 

1 Caractere gráfico da tecla " 1 " 

Linha 8300:1 Espaço 

1 Caractere gráfico da tecla "T" 

2 Caracteres gráficos da tecla "G" 

1 Caractere gráfico da tecla "4" 

1 Caractere gráfico da tecla "3" 

1 Caractere gráfico da tecla "5" 

2 Caracteres gráficos da tecla "A" 

1 Caractere gráfico da tecla "E" 

1 Espaço 

1 Caractere gráfico da tecla "Y" 

2 Caracteres gráficos da tecla "F" 

1 Caractere gráfico da tecla " 1 " 

Linha 8400:1 Espaço 

1 Caractere gráfico da tecla "Q" 

1 Caractere gráfico da tecla "7" 

1 Caractere gráfico da tecla "SPACE" 
1 Caractere gráfico da tecla "4" 

1 Espaço 

1 Espaço 

1 Caractere gráfico da tecla "5" 

1 Caractere gráfico da tecla "A" 

1 Caractere gráfico da tecla " 8 " 

1 Caractere gráfico da tecla "SPACE" 

1 Espaço 

1 Caractere gráfico da tecla "R" 

1 Caractere gráfico da tecla " 6 " 



1 Caractere gráfico da tecla “SPACE' 
1 Espaço 

Unha 8500:1 Espaço 

1 Caractere gráfico da tecla "3" 

1 Caractere gráfico da tecla “7“ 

1 Caractere gráfico da tecla “Y“ 

2 Espaços 

1 Espaço 

1 Caractere gráfico da tecla "8" 

1 Caractere gráfico da tecla "6" 

1 Caractere gráfico da tecla “Q“ 

2 Espaços 

1 Espaço 

1 Caractere gráfico da tecla “W“ 

2 Caracteres gráficos da tecla "6" 

1 Caractere gráfico da tecla "5" 

1 Espaço 

2 Espaços 

1 Caractere gráfico da tecla "2" 

3 Espaços 

Linha 8600:1 Caractere gráfico da tecla "3" 
1 Caractere gráfico da tecla “7“ 

1 Caractere gráfico da tecla “Y" 

1 Caractere gráfico da tecla "6" 

1 Caractere gráfico da tecla "3" 

1 Caractere gráfico da tecla “1" 


1 Caractere gráfico da tecla “7" 

1 Caractere gráfico da tecla "Q" 

2 Caracteres gráficos da tecla “SPACE 
1 Caractere gráfico da tecla “W“ 

1 Espaço 

1 Espaço 

1 Caractere gráfico da tecla “2“ 

2 Caracteres gráficos da tecla “SPACE' 
1 Caractere gráfico da tecia “1“ 

Linha 8800:1 Espaço 

1 Caractere gráfico da tecla “6“ 

1 Caractere gráfico da tecla “8“ 

1 Caractere gráfico da tecla “3“ 

1 Caractere gráfico da tecla “4“ 

1 Espaço 

1 Caractere gráfico da tecla “8“ 

4 Caracteres gráficos da tecla “SPACE' 
1 Espáço 

1 Caractere gráfico da tecla “2“ 

1 Caractere gráfico da tecla “SPACE“ 

1 Caractere gráfico da tecia “E" 

1 Caractere gráfico da tecla “SPACE“ 

1 Caractere gráfico da tecla “E“ 

1 Espaço 

Linha 8900: 6 Caracteres gráficos da tecia “A" 


1 Caractere gráfico da tecla “5“ 

3 Espaços 

1 Caractere gráfico da tecla “5“ 

1 Espaço 

1 Caractere gráfico da tecia “2" 

1 Caractere gráfico da tecla “6“ 

1 Caractere gráfico da tecla “T“ 

1 Caractere gráfico da tecla “7“ 

2 Espaços 

Linha 8700:2 Espaços 

2 Caracteres gráficos da tecla “6“ 
2 Espaços 


1 Caractere gráfico da tecla “A“ 

4 Caracteres da tecla 
1 Caractere gráfico da tecla “A“ 

6 Caracteres gráficos da tecla “A“ 


W 1 


M . i q g n f:|_H SX “• n 

TRhDÜZIDO £ hDhPT&Dü 
POR B.C.STEIN 
JUN 1984 

10 p R X N T " 8 £ M U X N D O H O J Ü G 0 D £ 
"; hT 2,10; 11 ’' 

15 PRXNT ,;“ENTRE COM SEU ChPX 
TRL TOTPL, ENTRE COM 0 UPLOR 
PH HPU oT H * 
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20 PRINT ,,"fl TECLR ""O"" RE.IN 
ICIA A JQGADfi ." , , i "UOCfc PODE DET 
ER 1,2,OU 3 BflRRRS,ESCOLHA Pt LO 
NUMERO." . 

25 PRINT , /'flO GRNHRR, UO CE PO 
DE TENTAR MULTIPLICAR O URLO 

R DO PRÊMIO. SE NfiÜ QUISER EHTR 

n ii|-. ii ii : i 

30"PRINT ,,"SE OUIS ER MUDAR fl 
RPOSTR, ENTRE ""E"", E O N 

OUO URLOP." 

35 PRINT RT 21.0; ■ DI 

GITE■OURLOU ER TECLA." 

37 PR USE 4-E4- 

. *i. L o 

4-0 PRINT TfiB 8; "TRBELR DE PONT 

OS".. . . 

50 PRINT Tfití 5; *’ (RPOSTR X N. D 
t PONTOS) " , * > 

51 PRINT T RB 12, "B g S 

JS" 

D 2 PkInT “ L-SzRE JHo , • cl « « . 4-» . * 

10 .... .20” 

tu.j 1 H XNT LHRfiNJHw' * • * i » > « i i 

■ J t -i r* » 1 

. ‘r- l * * > » _i_ 

54 PRINT “ LIMÕES........... 


18” 


B ............... . 


55 PRINT " PMEIXPS,......... 

10. . . . .23” 

55 PRINT ” SINOS............ 

10. . . . .20” _ ^_ 

íT 1 í* HKiN i 1 HÜüBüKHo • . c . . . s . . 

•1 jTH c* '7? * * 

58 PRINT M PERPS............ 

10.....20” 

59 PRINT ” MRCPS............ 

10.....20" 

50 PRINT M ****..........4+1 

00..8+200” 

51 PRINT ” B............... . 

20....100” 

52 PRINT 11 BB . ............. . 

20 ... .200 w 

53 PRINT M BBB.............. 

40..,.300” 

54 PRINT PT 18,I;””"4X5B5”” DP 
Ü M tí U N U >3 L*‘E $ 1 ki 0 

55 PRINT PT 21,4;“ENTRE COM OU 
PLOuER TECLP^” 

55 PP USE 4 £.4 
57 CLS 

70 PkINT hT Oio > í tUHUH N IuUt I 

Hh M 

75 PRINT RT 4-, 2; "ENTRE COM SEU 
CAPITAL INICIAL" 

80 SLOU 
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35 ’ INPUT K 
ICO LET LU =0 
102 CLS 

105 PRINT RT 3,5i"QUAL O 
Dfi RPOSTR?", ,“ (MRX. $10) 

120 INPUT E 

125 IF E >10 THEN GOTO 10 

130 CLS 

1 f*j H LüT U—0 

14.0 LET NO =0 

145 LET LG=0 

150 LET F=0 

1.55 LET K=0 

160 LET G =0 

165 LET P$ = ".;*. 


Ufii_OP 


i 

i 

i 

i 


175 LET M$=" 


130 LET 0$=" 

i 

185 LET R$ = "I 

I r 

190 LET 0$=" 


200 i-ET M =0 
205 DIM H(33 
210 DIM P512 3 

240 FRST 

241 FOR 1=1 TO 12 

242 IF K<=0 THEN PRINT RT 2,7; 
R C R B O U 51U U H PIT H L » 

' 243 IF K < =0 THEN LET LU=0 


244 

IF K 

. =8 THEN COTO 78 

249 

LET 

Y=INT (RND+I308)+i 


LET 

Z = 1 

■3 cr 3 

W ilM* 

IF V 

>38 THEN LÈT Z=2 

*t cr 
.1. < 

IF Y 

>338 THEN LET Z=3 

254 

IF Y 

*>S33 i HtN LcT Z =4 

255 

IF Y 

•>738 THEN LET Z=5 

255 

IF Y 

>888 THEN LET Z=6 


IF Y 

•>1838 ThEH LET Z=7 

258 

T cr \ 

JL ! ! 

•>1130 THEN LET Z=8 

259 

IF Y 

> 13*30 THEN LET Z=9 

250 

IF Y 

•>1430 THEN LET Z=18 

251 

IF Y 

■>1580 THEN LET Z=:ll 


IF Y 

*>1730 THEN LET Z=12 


30O LET P(I)=Z 

305 IF Pi 113 >8 THtN LfcT P l li) =1 
NT i RND *8 3 +1 
310 NEXT I 
315 LET G =0 


347 FOR 1=1 TO 16 








343 PRINT PT 1.0; 0$ 

349 NEXT I 

355 PRINT PT 5,9;M$ ;PT 11,0;M& 

350 PRINT PT 17,8; .. 


362 FOR 1=5 TO 10 
354 PRINT PT I,0;R$ 

366 NEXT I 
370 FOR 1=1 TO 12 
375 GQSUB 3000-10*1 
335 NEXT I 
425 LET K=K-E 

430 PRINT PT 13,0, “PPOSTP: ";E;P 
T 13,21;"5PLD0:“; K; 

440 SLÜU 
4 y 0 t? u T u tf 0 0 0 

500 Ir H* l H J = INT i H 1 tf< 3 +P K tf j + P í 11 


GOTO 2200 


N GOTO 2200 
530 IF P (2) 
OTO 2490 
540 .Ir P (3) 
GOTO 2400 
550 IF PC2) 
GOTO 2400 
tf50 Ir PC2) 
= 1 OR P C113 = 
553 LET M=0 


2000 Ir PC2 
2010 Ir PC2 
2020 IF PC2 
204 0 Ir p 12 


=P (8 3 RN D P 

>s 

( 8 

"i «*> ri i" ** *; 

1 | £* J 

w w 

INT (P (5 

3 +P 

(3 

i 'i /O r? 
j J / £i r 

PND P(33 

=P ( 


THEN 

INT í P (3 

3 +P 

í -1 

1 .* 3 / 2 

PND P (5 

3 =P 

(1 

13 THE 

1 PND PC 

5 3 = 

I 

THEN G 

I PND PC 

■i *r '1 

= 1 

THEN 

1 PND P ( 

113 

= 1 

THEN 

1 OR P (5 

3 =1 

0 

R P (8) 

THEN GOTO 

A 

SL H- 


HtfN GOTO 

í* 

2 

00 


HL* 

12 THEN 

: — 

L_ 1 

M 

_ if i ,"7, 

— •_* 


= 11 THtN LtfT M =200 
i =10 THEN LET M = 100 
= 3 OR P (2) =7 OR P (2) 


=5 OR P (2-3=5 OR P (23 =4 THEN LET 
M = 20 

20tf0 Ir P(2) =3 OR P (23 =2 THEN LE 
T M = 10 

2050 Ir P (2 3 =1 THEN LET M=20 
2070 GOTO 2700 

2200 IF P(53=12 THEN LET M=40 
2210 Ir P (tf3 =11 OR P (tf3 =10 THEN 
LET M =20 

2230 Ir P (53 =3 OR P (53 =7 OR P (53 
-F. OR P (5* =5 OR P (5’t =4 HP P í F 3 =1 
THEN LET M=10 

2240 IF P (53 =3 OR P(53 =2 THEN LE 
T M =4 

2250 GOTO 2700 
2400 LET M=4 
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2405 GOTO 2700 
2410 LET H =2 
2420 GOTO 2700 

2700 IF G <=M*E THEN tfET G=M±E 

2710 PRINT PT 20,0;G$; 

2711 PRINT PT 21,0;G$; 

2712 PRINT PT 19,0;“ 

>> « 

2713 PRINT fiT 19,9; '‘3” ; fiT 19,12; 

jq i s • "gj" • 

2715 PRINT fiT 20^ 13; "g332EgS"> 6; 


2715 PRINT fiT 20,13; ‘'«aaJufejSi'';G; 

2716 FOR 1=0 TO 31 STEP 2 

2717 PRINT fiT 21,1;"$ ", 

2 71 ; = » N EXT I 

2720 IF G <1600 THEN PRINT PT 21, 
0;“ PRRISCP 2X,3X OU 4X? 

* 1 

2722 IF G > =1600 THEN LET K=K+G 
2725 IF G>=1600 THEN GOTO 3600 
2730 Ir INKEY$ <> M “ THEN GOTO 273 
0 

2740 IF INKEY $ = “ “ THEN GOTO 2^40 
2745 LET 1$sINKEY$ 

2747 IF I$=“0“ THEN LET Lü=0 

2750 IF 1$ = “2“ THEN GOTO 2900 

2751 IF I$=“3“ THEN GOTO 2902 

2752 IF 1$ = “4“ THEN GOTO 2904 

2753 PRINT PT 21,0;0$;PT 19,0JO$ 

2754 FOR 1=0 TO 6 5TEP E 

2755 PRINT PT 18,27; K.+ I; 

2756 NEXT I - 

2757 PRINT PT 20,0;0$; 

2753 IF INKEY $ < >““ THEN GOTO 275 


d tf y 
2750 
4 


IF INKEY $ = ** M THEN GOTO 2759 
IF INKEY $ = THEN GOTO 276 


£1 »*" tf 4 

LET 

K=K+G 



2765 

LET 

F =0 



2770 

GOTO 

£l40 



2900 

LET 

y = £» 



2901 

GOTO 

~ 2905 



2902 

LET 

U =3 



2903 

GOTO 

2905 



d y 0 4 

L tf T 

y =4 



£ Q 0 Fi 

* W J 

IF ü 

=2 THE 

N PRINT PT 

21,13 

2906 

IF U 

=3 THE 

N PRINT PT 

21,15 

“ÊS" ; 





2907 

IF U 

=4 THE 

N PRINT PT 

d 1 j 22 

‘Wi 

2908 

LET 

MG =36 



2909 

I r is 

*v>100 

THEN tfET f 

*11? = M t? * 

* 

2910 

Ir G 

*U> 400 

THEN tfET í 

•ig=mg* 




2911 IP LU=i THEN LET MG=18 

2912 LfcT HH = INT ÍRND*MG) 

2913 11“ HH > 31 THfcN LET HH = 19 +RND 
*10 


2914 

G 0 S 

UB 

5*00 


2915 

IF 

U=2 

PNO 

PP <=18 THEN LET 

GsG*U 

2917 

IF 

U=2 

PND 

PP >18 THEN GOTO 

H y c» b 
h! y c 0 

IF 

U=3 

PND 

PP <=12 THEN LET 

G=G*Ü 
2 y 2 li 

IF 

U=3 

PND 

PP >12 THEN GOTO 

yy 3 b 
2925 

_ v. j I 

IF 

li 

PND 

PR < =9 THEN LET G 

H HH y 

2927 

IF 

U=4 

PND 

PP >9 THEN GOTO 2 
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3115 GÜSUB 5000 
3120 GOTO 50O 

3500 IF F=0 THEN PRINT fiT 20,4; 
PRRRR BRRRh-z* r 11 ; hT 2õ , £3, .» 


3 50 3 
3505 


K<=0 THbN CLS 
K < =0 THEN GOTO 242 


3510 IF F=1 THEN GOTO 3600 


3515 

5 


INKEY* <> ,,,r THEN GOTO 351 


w* w* u. D 
cr -r- 

.i. i » 

IF 

LbT 

INKEY$=”" THEN GOTO 3 
1$«INKEY$ 

3519 

IF 

I*=“0* # THEN 

LET Fs0 

3520 

IF 

I^ O ** THEN 

GOTO 240 

•-.» *_« c. JL 

IF 

I$s M K'* THEN 

LET LUsl 

cr z* O 

W w Lé* 

IF 

I * — ** K 11 THEN 

GOTO 3b15 

3 523 

IF 

I$= M G“ THEN 

GOTO 3500 


I F 

I*= M E" THEN 

GOTO 5000 

*•»’ ■— 1 d I 

LET 

H ( 1)=UhL ( 

1$) 

w 1 w 1 C — 1 

PRINT PT 20,23 

; H ( 1 ) ; 

3530 

IF 

INKEY* <>" ,# 

THEN GOTO 


0 

O C -1 
u 1 ■_ 1 —’ «L 


IF INKEY $ =*'" THEN GOTO 3*31 


u l w w w 

LET 

I$=INKEY$ 



3535 

IF 

I$ = ”-0" THEN 

GOTO 

4- b 0 0 

3536 

ÍF 

I$ = ”C 1 ' THEN 

G UT U 

3500 

~ ,n -n 
W- ' O í 

IF 

I$ = ‘*E". THEN 

GOTO 

5000 


3538 LET HÍ2)=UPL EI$) 

3539 PRINT PT 20,24-; H E2 ) 

354-0 IF INK.EY$<>'’" THEN GOTO 3*4- 
0 

354-1 IF INKEY$ ="" THEN GOTO 3541 
3542 LET I$ =INKEY$ 

:':545 IF 1$ = ”0" THEN GOTO 4200 
:-<=I4F IF I$r"C- THEN GOTO 3500 
3547 IF I$="E" THEN GOTO 5000 
:~;F4ft LET H i 3} = ! JhL (I$) 

3549 PRINT PT 20,25; H (3) j 
H50 x F IN K EY $ < > " " THEN G OT O 3 5 5 

0 

3551 TF INKEY$="** THEN GOTO 3*51 
F52 LET I $ = INKEY$ 

:-;FF0 IF I$="0" THEN GOTO 4100 
3600 PRINT PT 20,0;" 


3546 

cr a 


3502 IF INKEY*<> 


THEN GOTO 350 


3605 

3606 

3607 

3610 

3611 

;~;F« 12 

3615 

* M 

o b x c 
3520 


IF INKEY $=“" THtN GOTO 3605 
LET 1$ = INKEY$ 

IF I$="0" THEN LET p=0 
IF Ií="@" THEN GOTO 240 
IF I$="C" THEN GOTO 3500 
IF I$="E" THEN GOTO 5000 
IF I$<> !, 0" THEN PRINT PT 20 
NPO UPLE PPRPR ."j 
LET- F =0 
FOR 1=1 TO 50 




3625 

NEXT I 


b b b 0 

üUT U íi 40 


4100 

«v.v 

PRINT AT £0,4; 

«■.mm* 

4102 

LET MU=12 


4105 

Ir HCl )=1 hMD 

H(23 =2 hND H ( 

•b } — b 

THEM LET J=18 


4107 

IP 1 J — 10 AND Pí 

5) >9 THEN LET 

MU =3 
4110 

IP H(1)=1 AND 

H ( 2 } = 2 H N L> H ( 


,Jt Í ZZ 

THEM 

Lb 

:t 

; ^ *7 

W — i 




4112 

IF J = 

« *7 
* f 

hN 

D P i 

5 3 

> 9 

THEN LET 

Ml 1 =Q 




. 




4120 

IF H ( 

; d 

= 1 

PNC* 

H 

(2 3 

=3 AMD H í 

3) =4 

THEN 

LE 

;) 

ü=4 




43 P P 

IF J = 

v 4 

PN 

D P í 

83 

>9 

THEM LET 

MU =9 







4130 

IF H ( 

:i> 

—. ‘3 1 
***• 

PND 

H 

C 2 3 

=3 AND H í 

w i J =4 

THEN 

LET 

Ü = 1 




4 IjH 

IF -J = 

: 1 

PN 

D P ( 

8 3 

*> Q 

THEM LET 

MU =9 








4150 

FOR I 

:=0 

i T 

0 2 




4151 

LET P 

‘ CJ 

l + I 

) = IN 

T 

i R N D* ?i U .14-1 

4152 

Ir P ( 

«j r 

I) 

>8 THE 

N LET R = INT 

iRND-í 10) +1 







4153 

IF P ( 

J 4- 

I) 

>8 PNC* 

R< 

5 THbN LE 

T P (.. 

J + I)= INT 

( 

p ( j+ 

13 

/ ( C 

RND*4) 413 

+ 0 > b 3 







4154 

NtXT 

I 






4155 

LET F 

= 1 






4160 

IF J = 

10 

THEN 

GO 

51. IR 

4515 

4161 

IF J = 

’ í* 

TH 

ib N G 

OS 

UB 

4510 

4162 

IF J = 

, A 

M- 

TH 

bN b 

OS 

UB 

4505 

41b b 

IF J = 

1 

TH. 

EH G 

os 

UB 

4500 

4165 

tji !J j !_j 

a sr 

36 




4200 

XIXfi» 
X IX « 

PRINT 

AT ; 

20,4 

« 4 I 

} J 

x**V 

AV.WAV 

4201 

L ET M 


12 





4202 

IF H ( 

d 

= 1 

PND 

H 

( 2 3 

=2 THEN G 

OTO 4 

•_> cr }7| 







4205 

IF H ( 

i) 

= 1 

PHD 

H 

( 2 3 

=3 THEN G 

OTO 4 

255 







4210 

IF H £ 

1) 

— * 
— J. 

PND 

H 

(2 3 

=4 THEN G 

OTO 4 

■260 







4215 

IF H C 

1) 

=2 

PND 

H 

i O ’i 

*♦ ip. .* 

=3 THEN G 

OTO 4 

2 55 







4220 . 

IF H í* 

1.) 

= c! 

PND 

H 

(2 3 

=4 THEN G 

OTO 4 

270 







4225 

IF H 1 

15 

C b 

PND 

H 

C 2 3 

=4 THEN G 

□TO 4 

O 7 cr 

S W 







4250 

L ET U 

— 7 






4251 

LET 0 

= Íi 

7l 

CU 





4252 

IF P t 

5 5 

> 9 

THE? 

LbT 

MU =9 . 

4253 

ijit iT • i i 

.i •: 

30 





4255 

LET J 

=4 






*“i cr çz 

M- c. D 

LET 0 

= 1\ 

ZI 






4257 

Ir* t - (b 3 ^ y 

THEN 

LET MU=9 

4cb b 

GOTO 4280 



4250 

LET J=4 



4-251 

L bT b = / 



4252 

IF P (23 >9 

THEM 

LET MU=9 

4253 

b UT U 4 c! C* 0 



4255 

LET J=1 



42 55 

LET 0=10 



4-267 

Ir P (5), >9 

ThEH 

LET MU=9 

*4 *T C 

M 

GOTO 4280 



4-270 

LET J=1 



4271 

LtT 0=7 



4272 

Ir P(53 >9 

THEN 

LET MU=9 

.H 1 t 7 'T 

GOTO 4280 



4275 

LET J=1 



4276 

LbT 0=4 



4277 

Ir P (83 >9 

THEN 

LET MU=9 

4-275 

Ir 0 1 U 4 c. O 0 



4280 

POR 1=0 TC 

2 


4281 

L bT K l *J +1J 

= INT 

C RNDsMü 3 ri 

4282 

NEXT 1 



4-253 

rOR 1=0 TC 

-“t 


4 cl b 4 

í T r ! i tfci t X 

= INT 

(RNDr12 3 ri 

4285 

NEXT I 



4286 

LET F = 1 



4290 

IF J=i OR 

u = 1 THE N b u bUb 4 b 

00 

4c. 3 ± 

05 

IP vl =4 OR 

0=4 T 

H E ?**-! GO SUB 4 b 

4222 

IF J =7 OR 

0=7 THEM 60SUB 45 

10 

4293 

X F J = 10 OP 

0=10 

THEN GO SUB 

a cr -i cr 

■*+* %_< «L 

4299 

b U "T" U 4 5 b b* 



4300 

* u *»' 

X XX X 

PRIMT AT £ 

0 , 4 ; 11 

iViWiVíW" 

4302 

IF H 1 1 3 = 1 

THEN 

GOTO 4338 

430b 

IF H (13 =2 

THEN 

GOTO 4340 

A •“ *1 iTi 

M- J. \L‘ 

IF H (13 =3 

THEN 

GOTO 4350 

4315 

IF H (13 =4 

! HEN 

GOTO 4360 

4330 

LET Jri 



4331 

LET 0=7 



À •*!* 

H* 

LET L = 10 



•— 

S- w ■_* 

GOTO 4370 



4 b 4 0 

LET J=1 



/J •”* A *1 
*+ ’J H* 1 

LtT 0=7 



■1 .4 •“» 

H- H* C. 

LbT L = 10 



.i •“* A 

H* ; H- •_< 

RmTO 4370 



4350 

LET J=1 



4351 

L bT U = 4 



4352 

LET L = 10 



4 b< b b 

b U f U 4 O (*' 



4350 

LET J=i 



^ *7* c 
*4* w í !_1 4 . 

LET 0=4 



43 62 

LET L =7 



4 b b b 

GOTO 4370 







4 li* 70 

FOR R =0 TO 

CT 1 

•1 “? i 

H- w* í 

L dT P l U + R • 

=ÍNT ( RND *9) +1 

4’ U 1 í b. 

NEXT R 


4 í-. 1 0 

FOR 8=0 TO 

2 

4 u «l 

LET PÍO+B) 

= XNT ( RND* 12) +1 

4385 

NEXT d 


4 d y 0 

FOR 0=0 TO 

i 

4391 

LET PÍL+C) 

=INT CRND+12)+1 

449c 

NEXT C 


4 o y o 

IF U = 1 OR 

0 = 1 OR L =1 THEN G 

05 UB 

4500 


4394 

1 p j = 4 0 R 

0=4 OR L =4 THEN G 

OS UB 

4505 


4395 

X i” >J = 7 y R 

0=7 OR L =7 THEN G 

OS UB 

4510 


4396 

XF J=10 OR 

0 = 10 OR L =10 THE 

N GOS 

UB 4515 


4 z< y o 

LET F = 1 


4399 

GOTO 4539 


4500 

FOR 1=1 TO 


4501 

RO5 UB 8000 

~ JL U * JL 

4582 

NEXT I 


4503 

RETURN 


4505 

FOR 1=4 TO 

s 

4505 

GOSUB 8000 

-10*1 

4587 

NEXT I 


4508 

RETURN 


4510 

rOR 1=7 TO 

9 

4511 

GOSUB 8000 

— 10*1 


4-512 NEXT I 


4 o 1 • 

RETURN 


4515 

FOR 1=10 TO 12 


4516 

RH5i iB 8800-10* X 


4517 

NEXT X 


4518 

RETURN 


4 5 U d 

LdT K=K-E 


4541 

PRINT RT 18,27;K; 

»* i » , 

i 

4550 

LET F = 1 


4560 

RHTH 490 


5000 

ÍNPUT N 


5002 

LET Y =0 


5005 

IF N >10 THEN GOTO 

5000 

5007 

IF N > E THEN LET F 

= 1 

5010 

IF N <E THEN LET F 

= 0 

5015 

IF NO =1 THEN LET 

F = i 

5017 

LET NO =0 

- 

5020 

LET E=N 


5030 

PRINT PT 18,8;E;“ 

41 , 

A 

5032 

RHTO 3500 


5035 

1 1 

IF Y = 1 THEN PRINT 
*• » 

PT 2 

5037 

IF Y=1 THEN*LET F 

= 0 

5038 

IF Y =0 THEN LET F 

= 1 

5040 

GOTO 3500 


5045 

LET Y =0 




5050 

IF INKEYÍO 

THEN G 

OTO b0d 

w 

5080 

IF INKEY $ = ,# 

*’ THEN GO 

TO 5060 

5070 

IF INKEY $ = Jf 

O THEN G 

OTO 240 

5080 

GOTO 240 

Q ' "£1” • ÜT 

> —• i mm j ~ : 


5580 

PRINT PT 19 

19 j 12 7' 

.= 

PT 19,18; 

í 

* 


5503 

IF LU = I PND 

PP <12 THEN LET 

HH -HH 4-j 



5505 

Ir LU =0 PND 

G * U > 9 9 9 

THEN LE 

T PP 

=31-1NT (RNÇ’ 

*10) 


— cr »*a 

r 0R 1=0 T 0 

31 -PP 


5520 

PRINT PT 19 

,3i-i; M < 1 ' 

/ 

5530 

NEXT' I 



5540 

RETURN 




5000 PRINT RT 19,2; IS,5;" 


PT 

19 

, o; " j§" ; 

PT 19,11; 

4; M 

XZ2 i f 

«ml 

«_4 

; RT 19, 

•l -? . ”1^** • pT 

« i iXi > “ * 

PT 

19 

,23; “W 

; PT 19/26 

wU • 

Am— I? J 


É"; 



LET U=3*U 
5020 FOR 1=0 TO 33-U 
5030 PRINT PT 19,31-1; ; 

504-0 NEXT I 
5042 r0 R T = 1 TO 7 
504-4- NdXT I 
6050 RETURN 
7880 LET P = 13 
LET 8=25 

U U C* U d» d O 0 0 + -L 0 0 * H l X .* 
7884 RETURN 
7890 LET P=7 
7892 LET 8=25 
7dyuuoU8 d» 00 O + Xu0*f- ! il) 
7894 RETURN 


s* O w 

Z* O ■O 


7900 

LdT H — 1 

7902 

LET B =2 

7903 

GOSUB 8 

7y 0 4 

RETURN 

7910 

LdT P = 1 

7912 

LET 6=1 

,*■ y 1 y 

GOSUB 8 

7914 

RETURN 

7920 

LdT P=7 

y 1 *— * 

LET B = 1 

7W2d 

GOSUB 8 

7924 

RETURN 

“7 }■* 

i Z? w' ÍL* 

LET P=i 

7932 

LET 8=1 

79 33 

GOSUB 8 


7934 RETURN 
7y40 LET H = 1 d 

7942 LET 8=9 

7943 G0SU5 8000+100*P(I) 

7944 RETURN 
7950 LET R = 7 
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7952 LET 5=9 

7953 G05 UB 80004-100 ±p í I) 

7954 RETURN 
7960 LET . H = 1 
7962 LET 5=9 

7953 G0SU5 8000+i©8*P <I) 

7964 RETURN 
7970 LlT H = 13 

7972 LET 5=1 

7973 GÜ5U5 3000+10©*PfI) 

7974. RETURN 

7980 LET R =7 

7982 LlT 5=1 

7983 GOSUB S0©0+100*P(15 
7984- RETURN 

7990 LET H = 1 

7992 LET 5=1 

7993 GOSUB- 3000+100*P«I) 

7994. RETURN 

3100 PRINT RT R,B;” 1 ”;RT fi + 

l/B; 11 ***» M ;RT 0+2,8;"* S fi 

T fi+3 , Bj P$ 

3110 RETURN 

3200 PRINT RT 0,8;" M ; RT R + 

1,8;" J i 8 ”;PT 9+2,5;” M ;R 

T fl+3, 8; P $ 

3210 RETURN 

8300 PRINT RT R, 8; " ’*; RT R + 

1,5; "Jimr M ;RT h +2 ,8; ” UHF **; R 

T fi+3,B;P$ 

c* o 10 R izT u R N N 

84.00 print RT R,8;‘’'«s ";pt r + 

1, 8; " iHJfe M ; PT h +2 ,ts; ” TUã? íJ ; R 
T H+j, ui F$ 

34-10 RETURN 

Í‘ÍZ‘00 PRINT H S H j w; i* 68 * '* j H \ H + 

•T p-, . 11 ff 5 I*. -7- . ,**. p-. . > > ff ff 11 , . 

I , L , gjjfeng J H I H+Cí&j T»i «..L. ' r—■ 


-j- J , «IBS 

~r rj ; w * • • 

i rs “í" •_> , i_> j 


S 

a , r- 


3510 RETURN 

8600 PRINT RT 0,8, 


j RT R + 


”; R 


1,5; ”1 _ J ” ; RT R+2,5; " s ; 
T R + 3 , ts; f$ 

3610 RETURN 

3700 P RINT RT R , 8 ; * 

1,5; M ; RT R+2 ,S; 

T P+3,B;P$ 

8710 RETURN 
8800 PRINT RT R,B; M «! 


T fi+3,B;P$ 

3810 RETURN 

8900 PRIHT RT fi , *T 0 + 

l/B; "t* ***!”'; RT R+2 , 8; ”IIÉIÍIIÍ";P 

| »-{ + -Jt , , R 

3910 RETURN 

9000 PRINT RT R,5;P$;RT 0+1,8;”! 
L1SSB É 11 ; hT H+c, d; P$; RT R + -j , &; R$ 
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9010 RETURN M 

R100 PRINT RT R , B ; P$; R T 0 + 1/8; ”! 
Eraãg "; AT A+2,B; “mESli "iRT A+3, 
BjP$ 

9110 RírTüRN 

QP00 PRINT RT R, B í “ /RI 0 + 

i>b;“BBÜ ";s T a+sTbTTÍIEí^ ";h 

T fi+Sjs;P$ 

9210 RETURN 

OFI00 SfiUE " CACA NIQUtlS" 

9510 GOTO 1 

Veja as instruções: 

BEM UINDO RO .JOGO DE 


tiNTRE COM dEÜ u HPITH i_ TuTHL.. 
ENTRE COM 0 UALOR DP. APOSTA. 

p TECLP "0" REINICIA R JOGADA. 

VOC-E PODE DETER 1.. £ , OU 3 BARRAS.. 
ESCOLHP PELO NUMfcRO. 

RO GRNHRR, UOCE PODE TENTAR 
MULTIPLICAR 0 VALOR DO PRÊMIO. 

BE NRO QUISER ENTRE "C". 

SE QUISER MUDAR A APOSTA, 

ENTRE "E” , E 0 NOUO VALOR. 


^SaHSS©,..DIGITE QUALQUER TECLA, 

1) Verifique o valor, na tabela, de cada objeto que compõe o joge 

TABELA DE PONTOS 

(APOSTA X N. DE PONTOS) 


CERfcüHS«,H, 
LARANJAS, . . 
LIMÕES. , , . . 
H M EIX H O , , , » 
SINOS. . . . . . 
ABOBORRS... 
PERAS...... 

MAUA5.,,,*■ 

, , a a t t » 

B . i . * i « * t > * 

£> w 

C* LJ ***,»*»•* 

E3 c* O 

üDD* * • * * • * * 


, « 4» . •10 . * . * 

I I i • i ( I 4- ■ i a * 

1 

t f • i i * . *4» « » * « 

i t i ( * •10 * ■ i * 

t * • * s * 1 0 • ■ * > 

t f » t I . 10 I * I > 

• • ■ a ■ * 10 * • * • 

t • a ■ » » 10 * * » * 

a • *4 + 100* »C' + 

i « i i i i c!0 i i i > 
20i . . . 

* * * * • *40* * * * 


O •71 

Ê V»' 

. 10 

. 10 
O '7\ 

x i < w L 

,20 

,20 

•*“» >*s 

* CL HL* 

■”« 'Ti 

* 1— w 

200 

100 

200 

300 


XBBB“ DR UM 
ENTRE CÜM 


50NUS DE $ISO© 
QUfiLQUER TECLP* 
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2) Escolha o seu capital de jogo, 

3) Escolha o valor da aposta. 

4) A primeira jogada é automática. 



Se não houver prêmio, você poderá parar 1, 2 ou 3 das 4 barras 
(entre com o número de barras a serem paradas), depois entre 0. Você verá 
diante dos seus olhos as barras mudarem de posição. 

5) Se você for premiado, existe a oportunidade de arriscar um aumento no 
valor do seu prêmio 2,3 ou 4 yézes. 
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Escolha se você quer aumentar (atenção, você está arriscado a per¬ 
der todo o prêmio) 

Se não quiser arriscar, entre "C", e o prêmio lhe será contabilizado. 
Se você escolheu aumentar a aposta tendo ou não ganho, entre "0" 
para continuar a jogar. 

6) Cada nova jogada, perdida ou ganha, é iniciada pela digitação da tecla 
" 0 " 

7) Se você, em qualquer altura do jogo, quiser mudar o valor da aposta, en¬ 
tre "E" e depois o novo valor escolhido. 

8) BOA SORTE. 

Skat 

O Programa "SKAT" foi criado para auxiliar os meus amigos afic- 
cionados do jogo de SKAT a fazer a contabilização dos resultados de suas 
partidas. O SKAT é o jogo de cartas mais difundido na Alemanha. Foi cria¬ 
do há mais de 150 anos e é hoje jogado por mais de 10 milhões de pessoas 
na Alemanha, além dos milhares de adeptos mundo afora. 

Se você joga Skat este programa é uma necessidade para você. 

Se você não joga Skat, e não pretende aprender este jogo, ainda 
assim vale a pena estudar o programa, pois ele mostra como colocar os 
pontos e como fazer a contabilização de resultados de qualquer jogo envol¬ 
vendo de 2 a 5 jogadores, memorizando seus nomes, calculando pontos e 
valores monetários e tirando opcionalmente um extrato final dos resultados 
na impressora, se você possuir uma. 

Vamos ao programa 


1 PEM 


J 0 G 0 5 $C L H S 510 0 S 


íü>B.C.STEIN 
JUN 1984- 

3 GDSüB 5800 
•1 GO SUB 5828 

w* PRINT HT d 4 d / UUUt C' UHU UUG 
PP EM 9 U H MT O 5 ? “ 

18 INPÜT 5$ 

11 Ir 5$ ="" THEN GOTO 18 

12 rcnsUB 5^8^ 

13 Ir OK THEN GOTO 28 
14- GDSÜB 5828 

15 PRINT PT 2,8;"EU QUERO SPBE 

^* 16 PRINT PT 3,3;"EM QURNTOS VO 
CE5 VfiO JÜGhK, M 
17 GOTO 10 
20 i_ET SKRI = URL 5$ 

d O U -D ü ti 1 8 d 0 

27 IP 5KR7<=1 THEN PRINT PT 2„ 
l; '"JGÜZ UPI OUtRER JOGhR SOZINHO 
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h* m* i"*** n>* 


IF SKRT= 2 THEN PRINT RT 2,2 
. >■ =* x f-i p n 5 SIU E L J 0 G fi R E M D 0 IS." 

' 4-0 IF SKRT <3 THEN GOTO 3 

45 IF SKRT >5 THEN PRINT RT 2,5 
;“FfiCftM INT íSKRT/ 3)J" HtSRS D 
E JOGO. " 

50 IF SKRT >5 THEN GOTO 3 
5 0 DIM F$ l S K RT, 9) 

5 5 G 0 5 U t5 0 í=! 0 
70 FOR Z=1 TO SKRT 
30 PRINT RT 2,Í;“0ufiL fc* O NOíi 
E D n M ; Z ; “ i J ü G R D O R ? 1 * 

90 INPÜT F${Zi _ __ 

GS PR INT RT 3 > b í Z J . JuííhDUK : 

11 ; F Í i Z) J 

9 6 G 0 S Ü 6 w 0 0 0 
97 GOSUB 5030 
Q;-; N£XT Z 

00 PRINT 2 4 2; u QURL 5ERR s O 
L n P D Ü P ONT O ?'’ 

01 INPÜT 5$ 

02 IF 5 $ = ** *’ THEN GOTü 101 
0 3 G u c* U E* c* w’ 0 0 

105 X F NOT 0 K THE N G OT ü 1yl 

106 LET P=UHL 5$ 

109 LirT K =P 

110 GOSUB 5300 


112 

PRINT 

RT 

♦ jfc 1 

* 

M ; P$ 


114 

GOSUB 

50i 

115 

P 0 S U B 

50; 

120 

DIM F 

í SKi 

! O *7 

IF N=' 

O Ti 

130 

p n i i B 

£.0 

132 

IF tt< 

0 ' 

134 

LET N 

= 1 

-i cr 

j. •_> 

PRINT 

RT 

13 6 

PRINT 

RT 

: ( S 

P$; *' 

/ P 0 

137 

pp INT 

RT 

Jm C* O 

PRINT 

RT 

140 

FOR Z 

- 1 

150 

PRINT 

QT 

TO 

3) 



1^5-tf n>0 THEN GOSUB 5100 
156 PRINT PT 9,3 + 6* CZ-1) }O 
150 NtXT Z 
162 -í-v'S L Ü U 

171 FOR 5 =N TO 100 

172 IF 5>SKRT THEN LET S=1 

173 LET Z =5 

17R PRINT RT 2,10;N 

177 PRINT RT 2,21; F$ÍZ) 

173 PRINT RT 21^2 : ; “rEZ hLGUH ER 

p tj / y» ijT ü vZ 1 0 O 0:>>vÃ«- 


181 FOR T =0 TO 500 
132 NEXI T 
135 GO 5UB 5000 

1 !“í !*’! Ní t_J l^i ÍJ 6 5 c!00 

190 PRINT RT 19,6; "OÜEH JOGOU E 
5TR NRO?“ 

200 INPÜT Zé 
210 LET Z=1 . 

220 IF FéCZ, TO LEN =Zê THEN 
GOTO 260 

230 IF Z=SKRT THEN GOTO 245 
235 L.ET Z = Z+l 
240 GOTO 220 
245 GOSUB 5200 

250 PRINT RT 19,3;Z$; M NRO VEIO 

HH, .!£ , ” 

252 FOR T =0 TO 40 

253 NEXT T 

254 GOSUB 5200 

255 GOTO 190 
250 LET N=N+1 
£7R GOSUB 5200 

277 PRINT RT 19,6; "FEZ OUflNTOS 
PONTOS?” 


278 

INP 

UT 

C »f 



280 

IF 

5$ = 

it4i TT 

i 

HEN 

GOTO 278 

231 

P ní : = , 

UB 

5500 



cdc 

IF 

NOT 

OK 

THEN 

GOTO 278 

d o y« 

LET 

Z$ 

=S$ 



2 8 7 

P f! S 

UB 

5200 



290 

LET 

F ( 

Z,X) 

=URL 

z é 

300 

G n 5 

UB 

5100 



135 

PR I 

nT 

Ri S 

i 2 1 b í Z • i J ; . 


340 PRINT flT 9 ..2 + 6* (Z-l) ; Q 
3.42 Ii“ M THEN GOSUB 650O 

345 PRINT PT 15,1;” 


350 PRINT PT 15,7;"ESTOU ÜRLCÜL 
fiNDO. “ 

1000 LET R=© 

1010 FOR Z-l TO SKRT 
1020 FOR Y=I TO X 
1030 LET R=R+F(Z,Y) 

1040 NEXT Y 
1050 NEXT Z 
1050 PRINT PT 15l; ” 

M 

107© FOR Z = 1 TO SKRT 
1075 GOSUB 5100 
1110 LtT B=SKRT*Q 

1120 PRINT RT 15,2+6*(Z-l);K*(B- 
fl) 

1130 NEXT Z 



1140 NEXT S 

S000 l~OR T =0 Tü 30 

3010 NEXT T 

5015 RtTURN 

5020 PRINT PT 1,1;" 

5030 PRINT PT 2,1;" 

t I 

504-0 PRINT PT *3,1; ” 

5050 RETURN 
5100 LET 0=0 
5105 Í_ET X=N 
5110 FOR V=1 TO X 
5120 LET 0 =0 + F (Z , V ) 
5130 NEXT V 

5140. RETURN 

5200 PRINT PT 19,1;" 


5210 

PRI 

NT PT 20 


1 ' '• 

^ è 

s \ 


5230 

RET 

URN 




5300 

L l;T 

P $ = STR $ 


(P-f .005 

) 

5>310 

FOR 

P = I TO 

L 

EN P$ 


b320 

IF 

P$ fP) < > " 

• 

*’ THEN 

NE.XT P 

534 0 

LET 

Pí=P$ < 

T 

0 P+2) 


d 3 D 0 

RET 

URN 




5500 

LET 

G K = 0 




5510 

FOR 

1 = 1 TO 

L 

EN 5$ 


cr cr -i cr 

_i T? j_ ._t 

IF 

5$ (I) = '* 

rl 

THEN L 

ET 3 $ = ” 0 


5520 IF 5$CI)>**9" THEN 

5525 NEXT I 
5530 LET 0K = 1 
5540 RETURN 
5000 r-PST 


R ET URI 


5005 LET Z5 = " 

í;ví;*;v>x->í;->>>ívíí>/íwííí/WÃvAv>>;* * * 

5010 PRINT PT 0,0;R$ 

5011 PRINT PT 0,10;"S 

it 

6012 FOR T = 1 TO 20 
6015 PRINT PT T,0;"H 

P 1 ' 

O 0 cl 0 NE a ! T 
5039 PRINT PT 21 , 0 , R$ 
5035 PRINT PT 4 , 1 ;Z$ 
504.0 PRINT PT 12 , i; Z$ 
5 0 4 ir- PR INI PT 18 ,i;Z$ 
5055 IP N THEN GOTO 1 
5070 5 L 0 UI 

5073 PRINT PT 21,18; ”| 

SB" 
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5075 PRINT 
izR TECLR « 

5076 IF IN* 
5080 C‘KlN T 



EV $ ~ ” 



” DIGITE 
THEN GOT 


5055 PRINT PT 2 Í 1; ,Í U0C 
PNDO IMPRE550PP? " ; P^ 3 



O 0 H L. íi* U 
0 5078 

TR S 6 7 US 
* 5/NI 


q 0 5 S 

IN H Ü » W 5 


5 0 9 0 

IF 53$='' 5" r HEM LET 

M = 1 

5095 

L? U •— 1 2 3 4 U 5 C* 0 ir.’ O 


5895 

GOTO 5 


5100 

’-*i T t) P 


5500 

í_et v$ = ;> 


5502 

LET U$ = " •• 


5503 

LET X$=W$tV$+F$(1, 

1 TO 

5505 

FOR 2=2 TO 5K.hT 


5507 

LET X $ =X $ 4V $ + T $ t Z . 

1 TO 

5510 

NEXT Z 


w cr d 

Q w t 

LPRINT X$ 


5520 

LPRIMT "- 

M 


5522 

LET N = 1 


w C 

D D a O 

GOTO 5000 


5500 

LET R =26 


5501 

LíiT U =•-* 


5502 

IF Z$(l)="THEN 

LET R 

5 6 0 3 

IF Q < 0 THEN uET C = 

d 

i in^i v i 

LPRINT Th5 S;N-1.;TP,B C + 

-1) ; 

Q;TP5 Hí URL ZS 


5510 

RETURN- 


5000 

SRUE *‘S'KRT ” 



5005 LET M =0 
3010 LET N=0 


6020 GOTO 5000 


) 


1) Entre com o programa no computador. 

2) Para armazená-io em fita coloque seu gravador em "REC" e entre 
"GOTO 8000". 

3) Ao iniciar o programa, responda se você tem uma impressora acoplada 

4) Informe quantos jogadores irão jogar (no jogo de Skat participam 3 jo¬ 
gadores ativamente. Se houver 4 ou 5 à mesa, eles jogam alternadamente. 
Se houver mais de 5 jogadores fazem-se duas ou mais mesas. Portanto o 
programa aceita de 3 a 5 jogadores). 

5) Dê os nomes dos jogadores. 

6) Informe o valor do ponto para contabilização dos resultados e dos ga¬ 
nhos e perdas de cada jogador. 

7) A partir daí começa-se a jogar. 

Após alguns segundos o computador assume que a rodada j$ foi 
jogada, pergunta quem foi o licitador e quantos pontos positivos ou nega¬ 
tivos ele fez. Informe. 
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8) 0 computador então calcula e mostra na tela o número de pontos e os 
ganhos e perdas relativos a cada jogador. Havendo impressora, ela vai apre¬ 
sentando a contagem do jogo a cada rodada, sempre seguindo as Normas 
Internacionais do SKAT (aliás, as regras de SKAT são germanicamente ri¬ 
gorosas e devem ser seguidas a risca pelos jogadores). 

LÜT LUI CLH BER 


9) O programa foi elaborado de forma a evitar maiores "galhos". Se 
houver, porém, alguma interrupção, entçe GOTO 6000 e ele retornará ao 
ponto da interrupção com todos os dados em ordem. 

Aviso final aos jogadores de Skatr se você, como eu, não é um joga^ 
dor brilhante, o seu cartaz com os companheiros de jogo irá as nuvens na 
próxima vez que eles forem jogar na sua casa e você contabilizar o jogo 
através deste programa. 


Se você gostou do livro e aproveitou os programas que ele contém; 

Se você, analisando e digitando estes programas, aumentou sua coleção 
e aprendeu algumas técnicas e truques novos de programação; 
Então o livro terá cumprido sua finalidade, e o autor poderá considerar se 
satisfeito e realizado. Era esta a sua intenção. 

Muito Obrigado 

Bernardo C. Stein 
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